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PART 1. -SCOPE AND APPLICATION 

By Rex F. Cohvick and James W. Jones 1 2 


There has been considerable interest in com- 
puter simulation of productivity, energy flow, 
water use, and pollution in the many different 
ecosystems over the earth’s surface. Much of this 
work has been stimulated by the International 
Biological Program (IBP) and is oriented to- 
ward better management of the earth’s re- 
sources. We report here considerable progress, 
independent of IBP, toward the modeling and 
simulation of cotton production systems. 

There are several justifications for computer 
simulation of a large system. First, computer 
models focus attention on areas where knowl- 
edge is lacking and assist in the planning and 
management of team research. Second, these 
models ai'e useful experimental aids for studying 
hypotheses about system relationships, allowing 
better understanding of the numerous compo- 
nents of a system and thus reducing the cost of 
applied research. Ultimately, in showing the re- 
lationships among system components, computer 
models form a base for sound management deci- 
sions and alternatives. 

Our work commenced with the organization of 
Regional Research Project S-69, “Engineering 
Systems for Cotton Production,’’ in 1968. No one 
researcher can have a comprehensive under- 
standing of the structure and operation of each 
component of a crop production system, and this 
project has provided coordination among a num- 
ber of researchers in developing a cotton produc- 
tion simulation model. Since its inception, many 
experimentalists have joined the effort to build 
data bases for submodels, and many are also us- 
ing parts of the system to study large ecosystems. 

1 Cooperative research of Agricultural Research Serv- 
ice and Mississippi Agricultural and Forestry Experi- 
ment Station, 

2 Research leader. Cotton Production Research, and 
agricultural engineer, Southern Region, Agricultural 
Research Service, U,S. Department of Agriculture, P.0. 
Box 5466, Mississippi State, Miss. 39762. Colwick is Co- 
ordinator of Regional Research Project S-09. 


This publication describes four simulation 
models of subsystems in the cotton production 
system. These models, encompassing seedbed 
preparation through harvesting and ginning, 
were interfaced for the first computer simula- 
tion of any crop production system in October 
1973. a Our research group is close to completing 
some insect management models that will soon be 
added to the simulation. 

The first model simulates the soil-moisture 
profile in the seed zone (MOIST) . It is a descrip- 
tion of the moisture flux based on the conserva- 
tion of water in the top 6 inches of soil. Water 
evaporates from a visible moisture front as the 
water diffuses through a layer of dry soil and is 
partially replaced by capillary water that moves 
from a moist region to a dry region in response 
to a moisture gradient. This model provides the 
moisture input to the following model, EM- 
ERGE. 

EMERGE describes the germination and 
emergence of the seed. It is controlled by soil- 
moisture tension, soil temperature at the seed 
depth, and the mechanical impedence of the sur- 
face s'oil. When the model has simulated 50% 
seedling emergence, the plant model, SIMCOT 
II, is initiated, 

SIMCOT II is based on conservation principles 
that include a carbohydrate balance, a moisture 
balance, and a nitrogen balance for the plant. It 
requires daily inputs of solar radiation, maxi- 
mum and minimum air temperatures, rainfall, 
pan evaporation, plant population, water-hold- 
ing capacity of the soil, nitrogen application 
rates and dates of application, and plant growth 
factors related to carbohydrate, water, and 
nitrogen balances. Daily outputs from this model 
include plant weight, the number of fruit, and 
the age and location of each fruit on the plant. 


® Bowen, H. D,, Colwick, R, F., and Batchelder, D. G, 
1973. Computer simulation of crop production: Potential 
and hazards. Agric. Eng. 64(10): 42-46. 


1 



Boll opening rate curves from this model can be 
used to initiate the harvesting process described 
in the last model, HARVSIM. 

HARVSIM is a single-farm harvesting model 
that simulates passes made in the fields by the 
harvesters, the selection of trailers for filling, 
the transporting of trailers to the gin and of 
empty trailers to the farm, and gin backlog. An 
option includes twice-over harvesting in which 
the second harvesting of a given field occurs 
only if the remaining cotton would yield more 
than a specified amount. The model takes the 
cotton on through the ginning process and is 
capable of assigning economic values to the end 
product. 

These models are in various stages of valida- 
tion. 

MOIST was verified for only one soil type and 
at one location primarily because the soil param- 
eters necessary for additional verification are 
lacking; however, soil parameters are being de- 
veloped for approximately 20 soils that repre- 
sent about 80 jr of the cotton farmland in the 
United States. Some of these data should be 
available in 1975. 

EMERGE was tested in five States for 2 or 
more years and produced satisfactory to excel- 
lent simulations in years in which the tempera- 
ture increased progressively as the season ad- 
vanced. Subsequently, a slight modification im- 
proved the simulation when a long cold pei’iod 
followed a warm period 2 or 3 days after plant- 
ing. This modification needs more testing under 
various field and weather conditions. 

SIMCOT II was tested at several locations, 
and when detailed mappings of the plant struc- 
ture had been recorded twice a week and the 
environment had been monitored accurately, 
there was good correspondence between ob- 
served and simulated plant development, fruit- 
ing characteristics, and yield. More testing is 
needed particularly in the area of water stress, 
and more development is needed to apply this 
model to a field growth situation. 

HARVSIM was tested for 2 years in the High 
Plains of Texas. Data for the first year show an 
excellent correspondence between simulation 
and observation. Second-year data have not been 
analyzed. 

Although these models are in various stages 
of development and verification, this users man- 
ual is presented to document progress to date 


and to offer these models to scientists as a tool 
which they may use to focus attention on aspects 
of the system where understanding is limited. 
This should help them identify missing links and 
assign research priorities. 

These models are not sufficiently developed 
and tested to assist cotton producers with man- 
agement decisions. Such use could result in eco- 
nomic losses. The full management capabilities 
of crop simulation will not be achieved until all 
major crops have been modeled. Furtherrooie, a 
number of submodels dealing with insects, dis- 
eases, root development, nutrients, and water 
relationships will be essential for producer deci- 
sions. These are under development. 

To interface crop production submodels easily, 
it is possible to make simplifying assumptions 
based on the objective of the interface. This ap- 
proach was successfully used to interface the 
four models described herein. In figure 1-1 crop 
management is shown as it relates to the cotton 
production system. Options were designed for 
running any combination of the models when the 
user specified appropriate inputs. For example, 
SIMCOT II could be run alone or with EMERGE 
and MOIST, or MOIST could be run alone. The 
integrated models were run to test hypothetical 
situations such as a 10-day cold spell following 
planting, which resulted in a realistic delay in 
maturity and a decrease in yield. 

A simulation of planting through harvesting 
provided very interesting results. However, the 
assumptions that were made will probably not 
be sufficient for all applications of the model. 
For example, MOIST and EMERGE were inter- 
faced to provide soil-moisture values. It was 
assumed that (1) the seed and seedling do not 
alter the soil-moisture-flux equations, (2) the 
soil temperature can be predicted from air temp- 
erature, (3) the relative humidity can be pre- 
dicted from maximum and minimum air temper- 
atures, the dew point temperature of the previ- 
ous day, and rainfall, and (4) physical imped- 
ence is known. MOIST provided a table of the 
hourly moisture contents at planting depth; how- 
ever, EMERGE required moisture tension values 
in bars as input. To use the interfaced models, a 
soil moisture-soil tension relationship and a 
moisture release equation are needed for the soil 
being tested. 

These equations are being developed for 20 
soils, as mentioned above, at North Carolina 
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FIGURE 1-1. -Schematic of Initial interface of MOIST, EMERGE, SIMCOT II, and HARVSIM. 


State University. Also, Henry D. Bowen and 
others at North Carolina State University are 
attempting to obtain enough data so that 
EMERGE can be used without having to meas- 
ure moisture, temperature, and physical imped- 
ence daily. This technique will be based on soil 
types and will be developed from National 
Weather Service information and the reaction 
of the soil to initializing inputs of moisture, 
temperature, and physical impedence. 

SIMCOT II was initiated when MOIST-EM- 
ERGE predicted 50 °/o emergence. It was as- 
sumed that from this point carbohydrate produc- 
tion and assimilation would be the controlling 
factor in plant development. A major assump- 
tion was that a single plant can be used to make 
predictions of growth and yield; the variability 
among plants, their competition, and environ- 
mental variability were not considered. Again, 
depending on the objective, this may or may not 
be suitable. Also, no insect models were inte- 
grated into this initial effort. 

SIMCOT II predicted the boll opening rate 
used as input to HARVSIM. For this interface 
it was assumed that (1) no preharvest chemical 
aids had been used and that (2) nothing hap- 
pened to the plant except the removal of open 


bolls. Both assumptions were based on consider- 
able past research, but for some applications 
they may be unacceptable. 

Considerable work remains to be done to inter- 
face these and other models at the field level. In 
many cases, detailed models of interactions of 
various physical and biological systems will be 
just as complicated as any of the independent 
models. For example, interfacing an insect popu- 
lation dynamics model with a crop model might 
be accomplished by modeling the behavior and 
metabolism of the insects as influenced by weath- 
er, crop factors, and insect preferences. Such an 
interface would allow detailed studies of the 
interactions and provide needed assumptions and 
relationships for higher level models. 

An ultimate goal of these models, as mentioned 
earlier, is to optimize crop production systems. 
In addition, they will provide information for 
farm management decision models. Optimiza- 
tion models require a statement of what is to be 
optimized. At the producer (farm) level, profits 
are generally optimized (maximized) subject to 
the constraints particular to a given farm. How- 
ever, researchers may study an optimization 
model designed to maximize yield or minimize 
production cost at the crop model level. 
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PROFILE OF A BARE SOIL AFTER PLANTING 

By Charlie G. Coble, 1 Henry D. Bowen, 2 and Henry L. King, Jr, 3 


DESCRIPTION 


MOIST is a computerized mathematical mode! 
lor predicting, soil water profiles during’ the dry- 
ing of soil. It accounts for water movement in the 
soil in both the liquid and the vapor states and 
the evapoi’ation of water to the atmosphere. 

Liquid water movement is computed with the 
soil water diffusivity equation: 


where 


=flux of water in grams per second 
per square centimeter, 

=soil water diffusivity in square 
centimeters per second, 

=water content in cubic centimeters 
per cubic centimeter of soil, 

=gradient of water content in cubic 
centimeters per cubic centimeter of 
soil per centimeter of distance. 


The transfer of water in the vapor state be- 
cause of temperature gradients is calculated 
with the equation 

dC d(h\T) 
Jv ~~ D dx~ Lv ' dx ’ 

where J,,=flux of water vapor in grams per 
second square centimeter, 

D=dif fusion coefficient of water vapor 
in soil matrix in square centimeters 
per second, 


1 Assistant professor, Texas A&M University, College 
Station, Tex, 77840. Formerly at North Carolina State 
University, Raleigh, 

2 Professor of agricultural engineering, North Caro- 
lina State University, Raleigh, N.C. 27607. 

3 Research assistant, North Carolina State University, 
Raleigh, N.C. 27607. 


C = concentration of water vapor in soil 
air or atmospheric air in grams per 
cubic centimeter of air, 

dC 

-^=gradient of concentration of water 

vapor in soil air and in atmosphere 
in grams per cubic centimeter, per 
centimeter of distance, 
L„ c =coupling coefficient between water 
vapor and heat energy in moles per 
second square centimeter, 

T=- temperature in degrees Kelvin, 
and £=distance over which diffusion is oc- 
curring in centimeters. 

The water evaporated to the atmosphere is 
controlled by vapor diffusion through the dry 
overlying soil layer and is calculated with the 
equation 

dC 

where J e = evaporation flux as water vapor 
diffusing through soil from visible 
moisture front to soil surface in 
grams per second square centi- 
meter, 

D = diffusion coefficient for water 
vapor through soil matrix in square 
centimeters per second, 

dC 

and -^^concentration gradient of moisture 
in soil air from visible moisture 
front to soil surface in grams per 
cubic centimeter per centimeter of 
distance. 

Inputs to the simulation are weather and soil 
data (air temperature, atmospheric relative 
humidity, soil temperature, water vapor diffu- 
sion coefficients in soil, soil water diffusivities, 
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soil bulk density, and energy-mass coupling co- 
efficients). 

The model was verified for use on Ruston 
loamy sand soil and is adaptable to other soils. It 
can be used to accurately assess the effect of cul- 
tural practices on the soil water content profiles 
in drying soil. It was used to examine the effects 
of bulk density, wind, liquid water conductivity 


barriers, and surface films on the soil water con- 
tent profiles under drying conditions. 

The costs of using the model to optimize a cul- 
tural practice, including the cost of empirical 
verification of results, are estimated to be 0.01 
to 0.1 of those required for obtaining the same 
information by empirical methods alone, 


LIMITATIONS 


The major limitation of MOIST is the large 
number of temperatures and relative humidities 
required for the program. For instance, with 15 
soil layers, air temperature, and relative humid- 
ity, there are 408 items per day of input. Just 
obtaining the data is a major operation, and 
then it must be punched in. However, for in- 
depth studies of moisture movement in the top 
inch of soil, these data are required. A second 
limitation is that the soil parameters necessary 
for the program are available only for a Ruston 
loamy sand soil 

The thermal vapor section of the program is 
not very important in humid regions except pos- 
sibly in the surface inch or less of soil and for 
high-radiation conditions. For large-seed crops, 
such as cotton, corn, soybeans, and peanuts, this 
section can probably be bypassed without serious 


error, but it will probably be necessary for small- 
seed crops planted at shallow depths. Where the 
vapor transfer can be bypassed, it is not neces- 
sary to have temperature inputs for all layers, 
but only for the visible drying front, for which 
air and soil temperatures are required. If the 
thermal vapor transfer is bypassed, the mass-en- 
ergy coupling coefficient also need not be ob- 
tained. By using a constant temperature 
throughout the soil profile, the thermal gradient 
is bypassed. This is usually some function of air 
temperature, such as TA-3. However, it is desir- 
able that the temperature at the visible moisture 
front be estimated as closely as possible for ac- 
curate operation. Tests are in progress to de- 
velop estimates of temperature at the visible 
moisture front from air temperature, wind, a 
roughness coefficient, and solar radiation. 


DEFINITION OF TERMS 


ADC 

AGRAD 

AIST 

BD 

CATM 

CCOEF 

COTJPL 

DCONST 

EVAPJ 

FICKS 

FVAPOR 

GRADC 


Diffusion coefficient for the layer approxi- 
mately halfway between the evaporation 
front and the surface to make sure it is 
diffusing through the dry soil, 

Water vapor driving gradient from moisture 
front to the surface. 

Distance from middle of Kth layer to the 
surface in centimeters when 1-cm-thick 
layers are used. 

Array for the bulk density of each soil layer. 

Water vapor concentration of atmosphere in 
grams per cubic centimeter of air. 

Energy-mass coupling coefficient. 

Array of the part of thermal vapor transfer 
due to the energy-mass coupling for each 
soil layer, 

Array of water vapor diffusion coefficient in 
soil for each soil layer. Computed in real 
function routine listed at end of program. 

Evaporation flux in grams per second. 

Array of the part of thermal vapor transfer 
due to Fick's law for each soil layer. 

Water flux in grams per second due to temp- 
erature gradient, 

Water vapor concentration of atmosphere in 
grams per cubic centimeter of air per cen- 
timeter of distance, 


GRADLT 

IP 

IT 

L 

QCOND 

QCONDD 

QCONDU 

QEVAP 

QVAPOR 

RH 

SAVE 

SAVE1 

SEC 


Gradient of the log of the temperature. 

The number of l-cm layers in which the soil 
profile is divided. 

The total number of time periods for the 
model to run, 

The first L in MOIST is k/2; it is used to 
select a dry layer that is over the evapora- 
tion front. The second L is a DO loop sub- 
script, 

Array of the amount of water transferred 
out of each soil layer in the form of liquid 
water. 

Array for each soil layer of the liquid water 
transferred down. 

Array for each soil layer of the liquid water 
transferred up, 

Array of the quantity of evaporated mois- 
ture. 

Water vapor transfer due to temperature 
gradient per soil layer (array). 

The relative humidity of the atmospheric air 
during the time period. 

Evaporation from moisture front. 

Distance in centimeters from the surface of 
the soil to the moisture front of the soil 

The number of seconds in each time period. 
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SWITCH Allow moisture to evaporate from the layer 
with moisture front in it, 

T Array for the temperature of each soil layer 

during the time period. 

TA The temperature of the atmosphere air dur- 

ing the time period, 

TCK Array of temperature converted to Kelvin 

for each soil layer, 

VWC Array of volumetric water content for each 


soil layer in cubic centimeters of water per 
cubic centimeter of soil. 

WATER Array of moisture level of each soil layer in 
grams of water per cubic centimeter of 
soil. 

WC Array for water content of each soil layer 

(dry-weight basis). Example: 6%, read in 
as 0.06. 

WDIFF Diffusivity coefficient for a particular soil. 


INPUT/OUTPUT 


Input 

Program inputs read in as data are arranged 
in the following order and formats: 

1. IP, IT, and SEC on one card in 110, 110, 
and F10.0 format. 

2. BD array (bulk density of each soil layer) 
arranged in 15F5.0 format. 

3. WC array (initial moisture content at 
each soil layer) arranged also in 15F5.0 format. 

4. RH, TA, and T (RII and TA are single 
variables and T is an array) arranged in F3.0, 
F2.0, and 15F5.0 format. 


The maximum number of soil layers is 15. If a 
deeper profile is needed, enlarge the dimension 
statement and the input and output formats. 

Output 

The output of the program consists of the time 
period, the moisture content of each level for that 
time period, the distance from the surface to the 
center of the soil layer with the moisture front, 
and the quantity of evaporated moisture. The 
output variables are J, (WC(I), 1=1, IP), 
SAVE1, and SAVE, formated as 15, 15F7.4, 
F5.2, andE15.6. 


PROGRAM SETUP AND EXECUTION 


MOIST is written in FORTRAN G, a stand- 
ardized FORTRAN supported by IBM, for the 
IBM 370/165 computer. The program does not 
use any special system functions, but is easily 
transformable to any FORTRAN compiler. The 
standard code for an IBM 370/165 is EBCDIC, 
and the cards were punched on an IBM 029 key- 
punch. 

The card deck is arranged in the following se- 
quence: 

A. Control cards 

1. Job card 

2. // EXEC FTGCLG 

3. //C.SYSIN DD * 

B. Main program deck 

C. Function 

D. Control cards 

1 . /* 

2. //G.SYSIN DD * 


E. Data 

F. Control cards 
1 . /* 

2 . // 

The // EXEC FTGCLG card in the control 
section tells the computer to compile, link and 
execute the program. The //C.SYSIN DD * card 
causes the program and the function to be com- 
piled. All initializing of values to zero should be 
done in the program. All linkage to execute a 
FORTRAN program is then compiled. The //G. 
SYSIN DD * card then causes the program to be 
executed using the following data cards. The 
compiled program uses approximately 5,000 
memory locations, and the execution requires 
30,000 memory locations on the IBM 370/165. To 
simulate 4 days, the computer compile and exe- 
cution times are approximately 2.0 and 5.0 sec- 
onds, respectively. 
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PROGRAM LISTING 


C THIS PROGRAM CALCULATES DISTRIBUTION OF MOISTURE DURING THE 

C DRYING STAGE 

DIMENSION BDI15I. WC(15), TI16), C ( 1 6 ) » WATER ( 15 ) * QEVAPU5), 

1QVAPOR ( 16) « QCOND! 16) ,DCONST( 15 ) , QCONDU ( 16 ) , OCONDDI 1 5 ) , VWC ( 15 ) , 
1FICKSI 15 ) , COUPL ( 15) ,TCK( 16) 

RE AD! 1 » 5 l ) 1 P, IT, SEC 
READI l , 52 ) ( BD( I), 1=1, IP) 

RE ADI 1,53) ( WC ( I), 1=1, IP) 

51 FORMAT! 21 10, F 10.0) 

52 FORMAT! 15F5.0) 

54 FORMAT ( F 3. 0 , F2.0, 15F5.0) 

53 FORMAT! 15F5.0) 

27 FORMAT! • TIME WC ( 1 ) WC!2) WC ! 3 ) WC(4 WCI5I WC(6) WCI7) WC 

1(8) WC ( 9 I WC(IO) WC! 11) WC12) WC ( 1 3 ) WC I 1 A ) WCI15) DIST QEVAP • ) 

WR ITEI 3, 27) 

DO 125 M=l, IP 

125 VWC(M) = WC < M ) * BD(M) 

DO 75 J = 1 , I T 

RE AD ( l , 54 ) RH , TA , ( T( t 1 , 1 =1 , 1 P) 

T ( 16) =T( 15) 

DO 75 J2= 1 , 4 

SW ITCH=0 
DO 1 K= 1 , 1 6 

1 C(K)= 2.2B8E-6+10**! (T(K)-3)/76) 

C MOISTURE TRANSFER DUE TO TEMPERATURE GRADIENTS SECTION 

DO 90 K= 1 , IP 

DCONST ( K ) = D ! T ( K ) , BD ( K ) , WC(K)) 

C THIS STATEMENT SKIPS MOISTURE TRANSFER IF MOISTURE CONTENT IS 

C LESS THAN US. 

I F ( WC ! K 1 .LE. 0.0181 GO TO 105 

CCOEF =(-0.0000067 + 0. 000384+WC ( K ) )/ 10 

GRADC =C ! K )- C(K+1) 

TCK! K )=5*( T ( K ) -32 1/9+273 
TCK! K+l ) = 5 + ! T < K+1)- 32 1/9+273 
GRADLT=AL0G!TCK(K)/TCK(K+1 ) ) 

F ICKS(K) = DCONST(K) *GR ADC 
COUPL ( K ) =CCOEF*GR ADLT 
FVAPOR=FICKS(K)+COUPL(K) 

QVAPOR(K) = F VAPOR * SEC 
QVAPOR ( K ) = AB S( QVAPOR ( K ) ) 

GO TO 110 
105 QVAPOR ( K ) = 0 
110 CONTINUE 

C EVAPORATION SECTION 

C THIS STATEEMENT BYPASSES EVAPORATION STEP IF MOISTURE CONTENT 

C IS LESS THAN 0.5* 

IF!WC(K).LE. 0.005) GO TO 00 

C THIS STATEMENT BYPASSES EVAPORATION STEP IF EVAPORATION HAS BEEN 

C CALCULATED FOR A HIGHER SLICE 

I F ( SWITCH. EQ. I ) GO TO 80 
CATM = 2.280E-6 * 10+*! (TA-3)/76)+RH 
DI ST=K-0. 5 
SAVE 1 = DIST 

AGRAD= ( C I K ) — CATM)/ DIST 
L=K/2 

IF(L.LE.l) L= 1 
ADC=DCONST ( L ) 

CVAPJ = AOC+AGRAD 
QEVAP ! K ) = EVAPJ * SEC 
QEVAP ( K ) = ABS ( QEVAP ( K ) ) 

SAVE = QEVAP ( K ) 

SW ITCH= l 
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PROGRAM LISTING— Continued 


GO TO TO 
80 QEVAP(K) = 0 
1=0 

DI ST-0 

AGRAD=0 

A0C=0 

C TH^S^SECT ION COMPUTES WATER TRANSFERRED DUE TO HYDRAULIC CONDUCTIVITY 

70 IF l VWC IK ) -LE.0-02 ) GO TO 480 
IF I VWCI K ) .LE.0.055 ) GO TO 135 

WDIFF=llO**(!VWC(K) “ 0.046) / 0.036)1* 0.00001 
GO TO 91 

135 WD IFF = 1.55E-5 
GO TO 91 
480 WDIFF*0.0 

91 IFIK.EO. 1) GO TO 11 

IFIWCIK) -WCIK-1 ) ) 11*11*12 

12 QCONDUIK) * WD IFF * (VWCIK) - VWC(K-l)) * SEC 
GO TO 15 

11 QCONDUIK) “ 0 

15 IFIK.EQ.15) GO TO 13 
IFIWCIK) - WCIK+D) 13*13,14 

14 QCONDOIK) = WDIFF * I VWCIK) - VWCIK+l)) * SEC 
GO TO 16 

13 QCONDDIK) = 0 

16 QCONDU 1161=0 
90 CONTINUE 

430 DO 18 N=l* 15 

QCONDIN*? = -QCONDDIN) - QCONDUIN) +QCONDU I N+l ) + QCONODIN-l) 

GO TO 18 

17 QCONDIN ) * “ QCONDDIN) + QCONDUIN+l) 

18 CONTINUE 

00 65 L=l* 15 
WATERIL) = WC I L ) *BD I L ) 

IFITIL) - TIL+l) 145*40,40 

40 1a1eR(L) 1 = WATERIL^- QEVAP(L) - QVAPOR(L) + QCONDIU+ QVAP0RIL-1) 


100 WATERIL? = WATERIL) - QEVAPIL) - QVAPORIL) + QCONDIL) 

45 WATERIl! = WATERIL) - QEVAP I L ) +QCONDI L ) - QVAPOR ( L I 
1+ QVAPOR I L+ 1 > 

50 IF I WATER I L ) .LE . 0 ) WATERIL) = 0 
WCIL) = WATER! Ll/BDIL) 

VWCIL) = WATERIL) 

65 CONTINUE 

- WC 1 15 I = WCI14) + WC I 1 4 ) - WC < 13) 

75 WR I TE l 3, 26 ) J, WC 1 1 ) , WC I 2 ) , WCI3), wc < ** » * C 1 ur ! . f *i * i ? ’ 

IWCI8), WC I 9 ) , WCUO), WCIL1), WC 1 12) * WCI13), WC<14), WCI15), 

1SAVE1, SAVE 

26 FORMAT (I5,15F7.4*F5.2*E15.6) 

RETURN 

END 

REAL FUNCTION DIT, 8D, WC) 

TK =T+460 

E= 0.286* I I TK/492 ) **1.75 ) 

F=8D/2.65 + I WC*BD) 

Fl=l.0-F-0.23 
0= E * F 1 
RETURN 
END 
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PART 3 .-EMERGE: A SIMULATION OF COTTON 
GERMINATION AND EMERGENCE 


ByD. F. Wanjura 1 

DESCRIPTION 


The following pages contain a short descrip- 
tion and detailed instructions for using the com- 
puter model of cotton emergence, EMERGE. A 
comprehensive discussion of the theory and logic 
utilized in EMERGE is given by Wanjura et al.- 
Validation of EMERGE and its application for 
studying the sensitivity of cotton emergence to 
several soil parameters have been documented 
by Wanjura. 3 

EMERGE simulates the time distribution of 
cotton seedling emergence. Theoretical equations 
that describe water absorption by seeds and 
elongation of the cotton hypocotyl, with accom- 
panying logic, form the basis of the model. Par- 
ameter values for the theoretical equations and 
the logic were derived from experimental data 
and other observations obtained from emergence 
tests conducted under controlled environmental 
conditions. Parameter values in the equations 
are dependent functions of the soil environment. 
In this manner the equations reflect the effect of 
temperature, moisture, and physical impedance 
of the soil on the emerging seedlings 

Cotton emergence is divided into two phases in 
EMERGE. Within each phase the average per- 
formance of a population of emerging seedlings 
is described. The first phase is germination, 
which is followed by the second phase, called 


•Agricultural engineer, Southern Region, Agricul- 
tural Research Service, U.S, Department of Agriculture, 
Lubbock, Tex. 79401. 

2 Wnnjura, D. F., Buxton, D, R., and Stapleton, H, N. 
1973. A model for describing cotton growth during emer- 
gence. Trans. ASAE(Am. Soc, Agric. Eng.) 16: 237-231. 

3 Wanjura, D. F. 1973. Effect of physical soil proper- 
ties on cotton emergence: Prediction and quantitative 
description. U.S. Dep. Agric. Tech. Bull. No. 1481, 20 pp. 


emergence. Germination extends from the time 
of planting until the average radicle length 
reaches 3 mm. Germination progress is related 
to water absorption rate, which is dependent on 
soil temperature and moisture. Water absorp- 
tion rate increases between 60° and 100° F, but 
is assumed to stop below 60° F and level off 
above 100° F. Germination (or 3-ram radicle 
length) is considered to have occurred when the 
moisture content of the seed exceeds a specific 
level for a given temperature and soil moisture. 
These specific seed-moisture levels were deter- 
mined from empirical data. 

Emergence begins with the completion of 
germination and depends on soil temperature, 
moisture, and physical impedance. Emergence 
progress is related to the average hypocotyl 
elongation of the seedling population. The temp- 
erature limits for hypocotyl elongation are 60° 
and 104° F. Temperatures outside this range are 
assumed to stop or interrupt hypocotyl elonga- 
tion. 

Seedling emergence is calculated from a set of 
regression equations. These equations were de- 
veloped from experimental data relating average 
hypocotyl length and soil-moisture level to the 
percentage of seedlings which exceed certain 
specific lengths. In the model, the specific 
lengths represent planting depths. For example, 
if the hypocotyl elongation portion of the model 
indicates average hypocotyl length as 4 cm, with 
a planting depth of 3.8 cm, and if the percentage 
of seedlings equal to or greater than 3.8 cm in 
length is 50 % , as calculated with the appropri- 
ate regression equation, then 50% emergence 
has occurred from a 3.8-cm planting depth. Per- 
centage emergence, of course, would be lower if 
the planting depth was greater for the same 
average hypocotyl length. 
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LIMITATIONS 


The temperature range of EMERGE extends 
from 60° to 104° F. Soil temperatures are meas- 
ured hourly at seed level. 

Soil-moisture tension can vary from 0,33 to 11 
bars. Soil moisture should be sampled in the in- 
terval including seed depth ±0.64 cm at least 
every 2 days. When the soil dries to seed depth 
after germination, soil moisture should then be 
sampled in the zone where the seedling radicle 
is absorbing moisture from the soil. 

Soil physical impedance is the input parameter 
most difficult to describe numerically. The 
values used in developing EMERGE were meas- 
urements made in soil that was uniformly com- 
pacted from seed level to the soil surface, Even 
though the same type of soil penetrometer (0.4- 
cm-diameter blunt end) is used both in the field 
and in the laboratory, the same physical imped- 
ance reading on the penetrometer could repre- 
sent different magnitudes of soil resistance to 
seedling emergence. Rarely in the field is the 
physical impedance level in the soil uniformly 
distributed with depth. The permissible range of 
physical impedance values for the covering soil 
over the seed is 3.3 to 60 lb/in 2 (PI in program) . 
Physical impedance should be measured by in- 
serting the penetrometer 2.6 cm into the cover- 
ing soil over the seed drill. Measurements should 
be taken at least every 2 days 

Planting depth designations are limited to 


1,25-cm increments between 1.3 and 7.5 cm. If 
the depth of soil over the seed changes after 
planting, the time of change and the amount 
must be reflected in the computer coding of 
EMERGE where planting depth (DEPTH) is 
specified. 

There is no algorithm in EMERGE to describe 
changes in seed vigor that may occur after plant- 
ing. Thus, if long periods of adverse tempera- 
ture or saturated soil are encountered, EM- 
ERGE may produce an inaccurate simulation 
because seed germination percentage has 
changed. The model was developed from experi- 
mental data on acid-delinted seed; however, it 
should be suitable for situations where fuzzy 
seed is planted. 

Henry D. Bowen and James W. Jones at North 
Carolina State University suggest the following 
modification of EMERGE. The present method 
of calculating the limits of hypoeotyl elongation 
(EST) for a low-temperature period followed by 
a warm period predicts lower growth rates than 
observed. If EST is calculated by using a run- 
ning average, the accuracy for the above condi- 
tions is improved. At the same time, the accur- 
acy under normal warming conditions is not af- 
fected. North Carolina has programed EM- 
ERGE for IBM 360 FORTRAN with the option 
of EST being calculated with or without using a 
running average. 


A 

CLOK 

BE 

DELMOS 

DEPTH 

DT 

DWATER 

EL 

ELONG 

ELST 


DEFINITION OF TERMS 


Array of hourly seed-level soil tempera- EM 
tures in degrees Fahrenheit. 

Counter for accumulating time in hours. EP 

Hypoeotyl elongation during 1 hour, in 
centimeters, 

Seed-moisture increase during the hour EST 
preceding germination. 

Planting depth in centimeters. 

Array for storing the calculated hourly 
fractional accumulated increments of 
growing time prior to printing as out- 
put. 

Hourly increase in seed moisture in per- 
cent, dry weight. 

Array for storing accumulated hypoeotyl 
lengths in centimeters prior to printing KNL 
as output. 

Accumulated length of hypoeotyl in cen- KT 
timeters. 

Accumulated hypoeotyl length in centi- 
meters. M 


Array for storing hourly EST values 
prior to printing as output. 

Array for storing cumulative percentage 
emergence values prior to printing as 
output. 

A three-dimensional array of maximum 
hypoeotyl lengths used to calculate hy- 
pocotyl elongation. 

Elapsed time from planting when germ- 
ination occurs in hours. 

Standard seed germination in percent, 

Date of test, 

Counter for accumulating time in hours. 

Parameter used in calculating rate of 
seed-moisture uptake. 

Array for storing hourly KT values prior 
to printing as output. 

A three-dimensional array of rate of elon- 
gation parameter values used to calcu- 
late hypoeotyl elongation, 

Seed-level soil-moisture tension in bars, 


GERMT 

GP 

IDATE 

J 

KL 



MOIST 

Subroutine in which time variation of 
seed-level soil moisture is specified, 

NDEPTH 

Integer value of DEPTH. 

PI 

Soil physical impedance in pounds per 
square inch. 

PLACE 

Variable for identifying location of test. 

S 

TEMP. 

TEMP 

Seed-level soil temperature in degrees 
Celsius. 

TIM 

Time in hours, 


TIME 

TMAX 

TWATER 

TWATERL 


Array for storing time values in. hours 
prior to printing as output. 

Total allowable emergence time for the 
soil environmental conditions existing 
during the hour. 

Accumulated seed moisture in percent, 
dry weight. 

Parameter for temporarily storing the 
value of accumulated seed moisture in 
percent, dry weight. 


INPUT/OUTPUT 


Input 

Program inputs read in as data are arranged 
in the following order and formats: 

1. A table of KT values is read under 5F 
10.0 format. These data are included with the 
source deck, which can be obtained from the 
author. The KT values do not appear in the out- 
put section. 

2. A table of EST values is read under 5F 
10.0 format. These data are also included with 
the source deck and do not appear in the output 
section. 

The following data must appear in sequence 
after input 2 and be supplied by the user: 

3. PLACE, M, PI, IDATE, DEPTH, and GP 
on one card in A10, FB.O, F5.0, 5X, A10, and 
2F6.2 format. 

4. A-array (hourly seed-level soil tempera- 
tures) arranged in 16F5.0 format on each card. 
The last card should have 9999. punched in the 
first five spaces. The number of hours simulated 
is equal to the number of A-array values. A 
maximum of BOO values may be specified. 

The following information is required input, 
but does not appear in the data section of the pro- 
gram deck; necessary changes must be made di- 


rectly in the main program. 

5. The variation of seed-level soil moisture 
(3VI) overtime is specified in subroutine MOIST. 
This information must be supplied by the user in 
FORTRAN statements. 

6. Physical impedance (PI) variation over 
time is specified in the main program where in- 
dicated by comment cards. The change in physi- 
cal impedance must be described by the user in 
FORTRAN statements. 

Output 

The first information printed out is identify- 
ing data for the simulation, including location, 
beginning seed-level soil moisture, initial soil 
physical impedance, and date. This information 
is printed under the format of statement 31. 

During germination the parameters CLOK, 
TEMP, M, KL, DWATER, DELMOS, and 
TWATER are printed hourly in 7F10.5 format. 

When seed germination is reached this is 
printed under the format of statement 52 — 
GERMINATION TIME EQUALS “FB.O.” 

During the emergence phase of EMERGE, 
hourly values of TIME, A, DE, EL, KNL, EM, 
DT, and EP are printed according to the format 
of statement 34. 


PROGRAM SETUP AND EXECUTION 


EMERGE is programed in FORTRAN for a 
CDC 6400 computer. 

EMERGE does not use any special system 
functions that are peculiar to a CDC 6400. Some 
variable names are seven characters long, which 
is a greater word length than most other com- 
puters allow. The CDC 6400 also permits the "A 
format” specification to be a maximum of A 
( 10 ). 

The standard code read by a CDC 6400 is 
BCD. Computers which have EBCDIC as the 
standard code may not read cards punched with 


BCD code. Normally, computers can read either 
code, provided an appropriate control card is 
utilized. 

The card deck is arranged in the following se- 
quence: 

A, Control cards 

1. Job card 

2. RUN (S) 

3. SETCORE 

4. LGO 

End-of-record card: Multiple-punch 7-8-9 

in card column 1 
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B. Main program deck 

C. Subroutines 

End-of- record card: Multiple-punch 7-8-9 
in card column 1 

D. Data 

End-of-file card: Multiple punch G-7-8-9 
in card column 1 

The RUN (S) card in the control card section 
causes the computer to compile EMERGE. All 
memory locations in the computer are zeroed by 
the SETCORE card. The LGO card causes the 


program to be executed. In addition to the initial- 
izing accomplished by the LGO card, some vari- 
ables are initially set equal to zero in the main 
program. However, for the control cards indi- 
cated for running on a CDC (>400, initializing 
within the main program is redundant. To com- 
pile EMERGE requires 10,11.2 memory loca- 
tions. Program execution uses 9,984 memory lo- 
cations. Computer compilation and execution 
time required to simulate a 10-day emergence 
period is approximately 5.2 seconds of central 
processor time. 



PROGRAM LISTING 


PROGRAM EM£RGF( INPUT, OUTPUT, TAPP la INPUT) 

C****##flErnONS SUBJECT to CHANCE for SIMULATION ARF as foliows**** 
C*Y****n> MOISTURE, BARS— THIS IS IN A SUBRUUT T NF 

C****** (2) physical impedance* psi 

DTMFNSION KT(6,ii*ft), FST (6*4*5) 

DIMENSION A (5001 * DF(500), TIWET5O0)* EU500), 

1 KNL (5001 » EM(SOO). FP (500) * DT(SOO) 

RFAL M,k»KNL,KL 

RFA070»( ( (KT(I,J,U*L«lf5) »J*t *4)*I«t *6) 

PRINT 8ft 

READ 70» ( ( (FST (I , J,L) *L*1*5> , JxJ ,4)*I«1 ,6) 

20 RFAD TO, PLACE, M, PI, IDATF, DEPTH, GP 
PRINT 11 , PL ACE i M, PT, IOATE 
1 PRINT 4ft 
70 F0RMAT(SF1 0.0) 

A8 FORMaT(?H/7) 

00 FnRMAT(///*5X,*TIME»,A,X,*TEMP*,5Xt*M0S*,8Yt'»Kl.*»6Y, 

1 *0WATER*t5X«*DEl.MnS*>3X**TWATFRV) 

50 FORMAT ( 1 6F5» 0) 

51 F0RMAT(7F1 0,5) 

52 FORMAT(//10X,*GERM1NATION TTMF EQIIAI S*»F5,0*2X*»HOURS*//) 

10 FORMAT(A10,F5.o,F5 f O,5X»AlO»2F5.2) 

11 FORMATH HI »20X|*LOCATT0M|*»1X»A10» 5X**H0ISTURFj**F5,2» 

1 IX , AP.HY ft I C A L IMPE0ANCFi*,F5.1 » IX , *l)A T F | * , 1 X , A 1 0 //) 

GO* CP/lOO, 



C**** 

INITIALIZATION op PARAMFTFRS 



000123 


TWAT£RL»0. 



000124 


DWATER*n. 



000125 


CLOKa 0. 



000126 


GFRMTb ft. 



000127 


El ONGeO. 



O00130 


CLOKa 0. 



000131 


D T ( J ) a 0. 



000134 


El STa ,ft5 



000136 


El (J)» 0. 



000141 


ELONGe 0. 



O00142 


PT« 3.3 



O00143 

60 

JaO 



000144 

500 

RF AO 50*(A(T), Te 1,500) 



000157 


IF (FOF , 1 )61 ,500 




c**»* 

THIS SECTION COMPUTES THE 3-MM 

RADICLE EMFRGENCF 

FVFNT 


c**** 

BY SIMULATING THE IMglBTTTONAL 

HATER UPTAKE OF COTTON 


C**** 

seed , thf inputs are hourly soil temperature f. 

AND 


c**«* 

SOIL MOISTURE IN RARS. 



000162 

61 

JaJ+1 



000164 


CALL MOIST ( M i CI.OK) 



000166 


IF(A(J),GT, 100.) A ( J ) * 100, 



OOOJ75 


TFMPa(A(J1- 32. >*.55555555 




000003 

000003 

000003 

000003 

ooooio 

000014 

000061 

nooioi 

000115 

000121 

000121 

000121 

000121 

000121 

000121 

000121 

000121 

000121 
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PROGRAM LISTING— Continued 


000203 

000205 

000210 

000213 

000216 

000236 

000236 

000207 

000253 

000265 

000270 

000302 

000315 

000333 

000333 

000353 

000353 

000371 

000371 

000011 

000414 

000416 

000417 

000420 

000421 

000422 

000424 

000446 

000450 

000450 

000452 

000474 

000476 

000503 

000504 

000505 


000506 
000510 
000512 
00051 3 
000514 

000514 

000514 

000516 


CLOKa CLOK ♦ 1. 

1F(Temp;l 7, 15, 55555) 00 TO 15 
IFCTEMP^GP, 32.22220) GO 7 0 fl9 
IF(TEMP„GF, 15,55555) 00 TO 60 
59 Kt_» ». 0517136ft 4 »000149960*(TE M P**2,) 4 ,0343396ft*M 
1 • ,000644ft513*(M **2, ) - , 0009024209*TFMP*M 

CO TO 91 

90 KL* ,033776? 4 ,OOOO055«56*TE«P**?, - ,0034TflA2*M 

91 DWATEPsKLMflO.O - TWATERL) 
IF((TFMP,0E,26,66),ANO,(TFMP,LT,3?,?)) 00 TO 63 
IF(TEPP,GT,32,2) 00 TO 66 

IF((TFMp,0T»21»?),AND,(TE m P.LT,? 6,66)) GO TO 65 
IFCfTFMP.lE.2t.?);AND,<TEPP.GE.15.55)) 00 TO 62 

62 DELM0SS",1 133196 4 , 000705250* (TEMP**2, ) -,00134777ft* 

1 H ♦ .001 l77446*fM **?.) 

GO TO 64 

63 OFLMOSa <>,6954544 4 . 0 0 1 961 955* f TFMP**2 , ) 4 .0833515* 

1M + ,0076?6679*fH **?,) - ,0064U228*M *TFKP 

CO TO 64 

65 OFL M OSs -.3563704 4 , 00 1 3S31 6 1 * ( TFMP**2 , ) », 03509194 + 

1 M 4- , 0 0750674ft* f M **?.) 

GO TO 64 

66 0FL.M09* 3,39290ft - , Oft 1 9702?* ( TFMP**2 , ) - .3693547** 

1 4 , 009647528* (M **?,) 4 , 007306203*TFMP*M 

64 IF(DWATER,|.T.DElMOS)GO T0 j 0 

TWATER* TWATERL 4 DWaTER 
GO TO 16 

15 Kl.aO.O 
OWATERaO.O 
DELHOSsO.O 
TWATERaTMTERL 

16 PRINT 51, CLOK* TEMP. M t Kl. , OWATER, 0EU*08, T«ATeR 
TWATERLaT^ATER 

GO TO 61 

10 TWATERaTWATFRL 4 OWATFR 

PRINT 51 , CLOK « TEMP, M, Kl., OWATER, OFLMOS, TWaTER 
GFRMT* CLOK 
PRINT 5?, GFRMT 

dwater*o. 

TWATERL»0. 

Gn TO 502 

C**** THIS SECTION CALCI.ILATFS HYPOCOTVL ELONGATTON TN CM 
C**** USING HOURLY INPUTS OF SOIL TFMPERATURE F, 90TL 
C**** MOISTURF TN BARS* ANO PHYSICAL TMPEOAHCF IN PSI 

502 KKKa GERRT 
KN* KKK 4 1 
J* KKK 
TTMa J 

22 FORMAT ( 1Xt*TIHt*»?X,*TEMPFRAT'mF*»5Xt*l)F*,9y, 

1*ELONGATION*il3X»*KNL*»l2X»*EMAVT*f 6 X,+dTIMF*, yX , *|. MPFRCE* 
34 FORMAT( lX f Fit,Ot5X»F4,0.7X»F5.3.6X»F7.3*10X,F15.10,5X 
1 »F5.2»7XfF6,5t3XtF5.1) 

73 J« 4 1 

TTM* TIM ♦ 1 , 



PROGRAM USTING—Continued 


000520 

000523 

000526 


000541 

000544 


000505 
000563 
000601 
000605 
000611 
00061 3 
000622 
000631 
000603 
000647 
0006*52 
000665 
000670 
000672 

000/07 
O0071 0 
000712 

000732 

000732 

000745 

000754 

000761 


000771 


000774 

000777 

001002 

001006 

001007 

001011 


T* »(J) 

IF(T,GT.' 090,1 00 TO SOI 
IP(n.lT.60.).OR.(T.GT.1O4.1) c;n To 46 


c#*** 

C#*#* 

c***» 


PHYSICAI THPEOANCF TS INcREASFD WHEN AVFRAGF HYPOCOTY1. I ENGTH 
POUALS PLANTING OFPTH. in CALIBRATING 7HF MonEI-t IT WAS 
pound that THF F1FL0 HEAS1IRF0 PT VAl UFS EXPRESSFD IN PST SHOULD 
UF nivloEO BY 10, THF LOWEST PFRMISSIRIE PT VAI.UF TS 3.3. IN 
GFNFHAL PT VaLUFS OF 6t 12* AND ?0 ARF REPRFSFNT AT I VE OF LIGHT, 

mfdtum* and SFVFRF sotl physical, tmpeoancfs. 


IFCFLONG.OE.OEPTHIGO to 144 
GO TO 1 «5 


C«J»$ PT TS OFSCRIBFO IN ST ATFHFNT 144 


144 IF ((TTM.GF, 195,1 .AND. f TTM.LT. 243 .3 )PI«6.3- 
IF( (TTM.GF. 243,1 . AND. fTTM.lT.33ft.)> ”1*3.7- 


IF(TIM,r,E.336,)PI»4,5 
IF(PI,LT,3,3)PI«3.3 
145 CALL MQTST(M,TIM) 

KNLfJl = K(T,M,PI ,KT) 


.054* (TTM-105.) 
,O170*(T1M-?43.1 


FM ( J) 1 K(T.MtPTtFST) 

DF(J)» KNL(J)*fLST*(EH(J) - ElST) 

8> fT - S?)*, 555555 
IF(S,I.T,21 ,1 11 1) GO TO 74 
IFCfS.GF, 21. 11 ID. ANO.IS.LE. 32.2222)) 
IFCS.GT, 32.22221 GO TO 02 
74 CON«,20?744E"06 

THAX*49?«BOR -CON*EXPfSl - 17.6002* M 


GO TO 75 

- 1 .5Q139*(M**2) 


It 2,76729+M 
GO TO 93 

T5 XMAX»471 1^45 -^1 3,6641 *S t nON*FXPCS) + 6?.4350*M 
1- 2.3S855*(H**21 - ,54B660*8*M 

?MAYaA2^8S45t06,04401«M-? 1 ?5n39*fM**?)-1 .69967'*S*H 

93 0T(.T)« 1,0/THAX t DT<J-1) 

IF(FMfJ).LT.ELST) GO TO 47 
El. (?) s FlfJ-ll + oEfJT 


c*»** THIS SECTION COMPUTFS PERCENT AGF, FMERGENCF FROM THE AVERAGE 
c***t HYPOCOTYL length ( FL f J1 


IF(FL0NG,l T, l .01 GO TO 25? 


Mitt THIS SErTTON CALCULATES THE STATEMENT NUMBER OF THE KOUATTON 
C*$s$ TO BE USED IN CALCULATING pfrcentagf fmfrgencf . the correct 

C3S3S EOUATTON DEPENDS ON PLANTING OE p TH, 


IF(nEPTH.I T.l.STblGO TO 1000 
IF( DEPTH, GE«6,8T5lGO TO 1001 
NDEPTHafDFPTH/l ,25) + ,5 
GD TO 100? 

1000 NDEPTHal 

GO TO 1000 
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no i o 1 1 
ooton 


001025 

001006 

001007 

001062 

001105 

001106 
001 1 ? 1 

001 104 

001105 

001173 

OOU70 

001231 

001232 

oot 205 

001302 

001307 

001322 

001326 

001331 

001310 

001335 

001300 

001303 

001306 

00 1 35 1 
001356 
001363 
001370 
001371 
001374 
001377 
001000 
001011 
001012 
OOI0I6 

001057 

001061 


PROGRAM LISTING— Continued 

1 on 1 NDEPTHa6 

1002 CO TOr200*20l,202,2n3,204,2ft«,),MDFPTH 

C APPLICABLE PAUGF OF EI.ONG IS 1.0 - 0,8 CM, DFPTHs 1,3 CM 

200 EP(J)»0fl,0553*£t.0NG - 6,6?388*{FL.nNG**21 ♦ ,239 11 6* (EL0NG**3 ) - ,8 
1 26560*ELONG*M 

GO TO 250 

C APPLICABLF PANGF OF ELOMg IS 1,ft - 5,6 CM, DFPTH s 2.5 C M 

201 IF{rtLONG,LT,1,0),OB.fEI ONG.GT.6.7)) GO TO 250 

EPU)s »2P, »3T2*EL0MG + 20,9«13*(FL0NGT«2) - 3 . Rl 21 70 ( ELONg* * 3) 

1+ ,0200009*(FLDNG**51 

GO TO 250 

C APPLICABLE PaNGF OF ELONG IS 1,0 * 6,6 CM. DFPTH" 3,0 CM 

202 IF(fEL0NG.'LT.l,0).OP,fEI.OMG.GT.6.6)lG0 TO 250 

E P C •!) B 0«30967'i , M-l?.9n7*EI. ONG + 7.O7l38*(FLONG**21-.0123071*(E 

1L0NG665) - 2,06569*FLONG*M 
GO TO 250 

C APPLICABLF PAMGF OF ELOWG IS 1,0 <. 7.5 CM. OFPTHb 5,0 CM 

203 EP(J)«**1| ,6R5R*FL0NG + 5 , 09969* ( EL - . 0350686* (EL0NG**0) ♦ 

1 l,3T0O0*(M*621 *> 1 ,3153*EI OWG*M 

GO TO 250 

C APPLICABLF PANGF OF ElOWG IS 1.0 - 7,5 CM, DEPTHS 6.3CM 

200 EP( J)«-1 2,0228*M + 13,1315*FL0NG - 8.5687?*(£l ONG**2) + 1,61019*(F 
1 LONO#*3> - ,00985923*(fcL0NG**5) + 3. 1 1 80 1 * (m** 2) ♦ .992018*ELONG*M 
GO TO 250 

C APPLICABLE Ra^GF np EI.ONg IS 2,0 - 7.5 CM. DEPTH* 7,5 CM 

205 IF<f£l.0HG.LT,3,5) .OR, (EI.0MG,GT,7,5)) GO TD ?50 

EP(T)»*fl,U8373*M + 5.001 3FEI.ONG - 1 . 53060* ( FLDNG**3> ♦ ^038285*fEL 
10NG**0) * ,0303805 * (EL0Mq**5) + 2 , 0752* ( MAT?) + . 8 1 3098*EL0Ng*M 
250 EP(.T)s FPfJT*GD 

IF(FPf J).LT.EP(J*1)T FPTJTs EP(J*1) 

252 El ST= 0F<.f) ♦ ELST 
ELOHGs FLfJ> 

TIMF(J)a TIM 
GO TO 73 

06 OF ( 1) * 0. 

KNL(J)* 0. 

FM(,T)» 0. 

TTMF(J)s TIM 
EL(.T)s FL(J-l) 

DT(.T)s rtTfJ-11 
EP(1)s FPfJ-1) 

GD TO 73 

07 OF ( !) s 0. 

TTMF(.l)s TIM 
El, (,?)« FUTJ-IT 
EP(l)a FPfJMl 
GD TO 75 

501 PRINT 2? 

PRINT 30»(TIMF(T) » A(T). D£fn, EI(T). KNL(T). FMCI), DT ( T ) * Fpm 
1 .TsKN.Jl 
STOP 
EMD 

SUBROUTINE M0TST(M, TCLDK) 

C**»* THE SFCTION 5EL0H FXPRFSSES THF mqTSTURE IN THF SEED ZDNF AS A 
C**** FlINCT TON OF TTMF FOR A PARTICULAR FTfcLD TFST 
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PROGRAM LISTING— Continued 


000006 
000006 
000011 
000027 
000042 
000060 
000076 
0001 02 
000103 


REAL M 

IFCITrLOK^GrllE?!) .ANO # (TCLOK.LT.1 68. ) ) Ms , 9+-. 0 1 08* ( TCL OK-1 2?.) 

IF [ IT CLOK.GF, 1 6S. 1 • ANO, (TCLOK.LT ,216. 1 >ms t .4 

IF(nCL0K,GF,2l6,1 ,ANn,(TCL0K,LT,?8R.> )M«1 .4+,0137*fTCLOK»2l6.> 

IF{<Tf.L0K.GF,286.>,ANR,nCLOK«LT.736.)>M»?.0+.01 2?* (TCLOK«269 • ) 
IF(TCL0K.G£,338.)Mb3. 

Rfl'IIRN 

E M 0 


RFAL FUNCTION K(T*M*PT*KTl 

C**A* 1 H IS FUNCTION CALCULATES THF VAl.UF OF EMAYT AND KNL FOR 
r*«** FLONGATTON AS A FUNCTION OF TEMPERATURE F* MOISTURE IN BARS ! AN " 
C***9 PHYSICAL tmpeoancf TN P9 | BY USING linear interpolation IN T*0 OR 
c* *** TWRFE OTMFNSIONS 


nooo 1 1 

00 0 o 1 1 
ooooti 

00001 1 

0000! 1 
000013 
000 01 4 
000020 
000022 
000023 
000024 
000026 
0000 «t 
000043 
000045 
000047 
000053 
000055 
000056 
000057 
000061 
000074 
000076 
OOflino 
000102 
000106 
000110 
0001 1 1 
000112 
000114 
000127 
000131 
000151 
000162 
000171 
000203 


DIMENSION TA(6) *MA (4) *PTA(5! 

DIMENSION KT(6*4*5) 

RFAL MA*KT*M,KL*KU,KSU8 

DATA TA/60, 0*70, Of 60.0, RO . 0 * 1 00 . 0 * 1 04 » 0/* M A/0. 33, 3 . 0 , 
110,0*1 U0^.RI*/3, 3* 16.0 ,32, 0,46. 0*50.0/ 

itl»itu«o 

DO 1 1*1 * 6 

IF(T,GE.TA(T)) GO TO t 

ITL5I-1 

ITU«I 

GO TO 3 

1 CONTINUF 

3 DT*(T-TA(TTL))/nACTTH)-TA(TTU) 

IF(DT,E<!.0,1 TTUbTTL 

IMU*IML*0 

DO 2 1*1*4 

IF (M,GE ,MA ( I ) 1 GO TO 2 
IML»I-1 
I MU* 1 
GO TO 4 

2 CONTINUF 

it DM*(M«MA{TML)l/fMA(TMU)»MACTML)1 
IF(f»M.EO.O,l TMUsTML 
IPL*1PU*0 

. on s Hid 

IFCPI.GE.RIACtn GO TO S 

IPL*I-1 

1PU*1 

GO TO 6 

5 CONTINUF 

6 DP*tPT-PIA(IPLn/TPlAnPU>-PI‘ (TPin 
IF (DP.EO.0,1 IP1I*TPL 

D*3GRT (npTTP, + 0MF*2. ♦ DT**?.! 

KL*KT(ITL«IML'iJP15 

KtlaKT HTU*I M U*IPU1 

11 IFCIDT.GT.O.) .AND, (DM. GT, 0,1 ) GO TO 1? 
IF((DT.GT,0.).AND.(OP,GT.0.) ) GO TO 13 

C CALCULATION OF K WHEN MOISTURE AND PHYSICAL IMPEDANCE ARE 
c BETWEFN TABLE values 
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PROGRAM LISTING— Continued 


000215 

0002?2 


000222 


000225 
000240 
000255 
000265 
000300 
00031 5 
000325 
000344 
000346 


000346 
000351 
000364 
000401 
00041 1 
000424 
000441 
000451 
000470 
000472 
000472 
000475 
000510 
000525 
000555 
000556 
000553 
000563 
000602 
000604 


000604 

000620 

0006«0 

000650 

000665 

000675 

000714 

000716 

000720 


9 K»0* (KJ-KI ) + Kl. 

CIO TO 10 

C 4LCUI ATI ONS To FTND PROPFR VALUE OF K WHFN TFMDeR A TURE AMO 
M r* 1 8 TURF ARF: RETWFEN TARLF VALUFS 

12 lF(np,GT.0,l R0 TO 14 


0TFHLa(MAflML)»M)/(HAfiML>«> M A ( TMU ) ) 

3U0I 1= fDTFML)*(KT(TTI *TMI.,TPL) “ KT ( TT I. * TMU, T PI ) ) 

SIIBL2b K T f I TL * I ML 1 1 PL 1 - SURL 1 

OTFMUa f MA ( TML) - M)/(MA(TM|.) -MAU m U>) 

3IIBU1* f OTFMu) * ( KT ( t T U, TMl iTPL) “ KT < TTU , TMU , TPL ) > 

3UB>I2b KT T I TU » I ML f I PL 1 " SURU1 

KSURaf (SURUP-8URL?) •CTA(ITU') -T ) 1 / f T A < TT U) -T A ( T TL ) ) 

Ka RURU? - KSOB 
GO TO 10 

C CALCUI. ATlflNS OF K WHEN TEMPFRATHRF A NO PHYSICAL IMPFDANCE ARE 

C 0FTWEFN TABLE VALUES 

13 IF (DM. GT , 0, ) GO TO 14 

OTFML*(PIA(!PU-PT)/(PlA{TPU - PTA(IPU)) 

SIIB1.1* (DTFMLU(KT(TTU TMl.«TPI.) - KT ( T Tl. , TMt , TPU) T 

3UB1.2X KT<ITL»IML»IPL> - SURL1 

OTFMUa fPTA(lPL) - PD/IPTAUPL) - PIA(TPII)) 

8HBU1* fDTPMU)*(KT(TTUtTMl fTPL) " KT< TTU » TMl , TPII) ) 

3HB1I2« KTdTUiIML.IPLT - RURU1 

KSUR»((SU5U2-SURL?)*(TA(ITU>-Tn/TTA(ITII3' - T*(1TU1 
K» SURU? «* KS'Ja 
GO TO 10 

15 IFtOT.GT.n.T GO TO 14 

DTFMLs MA<TML) « Ml/fMACTML) - M A ( TMU) ) 

SIIBLla ( 0TF M L1 * f KT ( ITL » TMt i TPI ) - KT ( TTI. » TMU, TPt ) ) 

SUBL2« KT(ITL*IML,IPLT - SURL1 
OTFMUa 0 I FML 

8UBU1* (DTFMUT*(KT(TTL, TML, TPU) - KT ( TTI TMU , TPU) 1 
3UBU2a KTHTL, IMLflPU) - 3URU1 

K3UR* ((3UBU2 «. StIBl. 2 0 * (PTA U p U1 - P I > ) / (PI A ( TPU) - PTATIPLU 
Ka SUP U? - K3UB 
GO TO 10 

C CALCULATION OF K WHEN TFMPERATUPE, MOISTURE, AN" PHYSICAL 

C IMPFDANCE ARE BFTWfcFN TABlfe VALUER 

.14 DTFSG* 3QRT ( 0 M **2 + DP**2) 

SUHUs OIFSO*(KT(TTL, TMl ,TP1 )- KT C I T L • I"1U, IPUl ) 

SIIBI.2* KT(ITl,IML, IPL) - SURL1 

SIIBUls OIFSO*(KT(TTII,TML»TPL) - KT ( T TU , T Mil, TPU) 1 
SU0U2a KfflTUtlMLflPL) - SURU1 

K3URs ((3UBU2 • SIIBI.2) Pf T A ( TTU) - T))/(TA( ITU) ■ T A ( TTI ) ) 

K* SURU? » KSUB 
1 0 RFTURN 

end 



EXAMPLE RUN 

Input Data 


TABLE OF KT VALUES TABLE OF EST VALUES 

. T 1 Q ? *5 fU 2.75 1.25 .25 


.004(10032 

.008352267 

.CL1320H 

.010383691 .0139927 
.013557264.0162947 

. C C 7053k 6 

•C192581 
.C 1 99945 
•C 102575 

2.75 

1.65 

.75 

1.25 

.75 

.25 

. 85 
,55 
. 15 

K t. 

m * 

.35 

.25 

,(.0501412 
. (.0469519 
.0113810 

.013159;! 06. 0167783 
.CC52C764 .C172229 
.0138237 .0133494 

. C 2 CC4 3 C . 
.C196467 

7.05 

4.95 

1.15 

3. 05 

2.05 
, 75 

1.65 

1.45 
. 35 

1.35 

.95 

.15 

.00788747 

.C0444414 

.00557994 

.01264 54 .Cl 52 562 
.C07S5C1 15.C19C63R 
.0122496 .0226051 

. C25281C 
•C252P1C 
.0431406 

6. 25 
6.25 
2.9 5 

3.55 

3 . 5 C 
.65 

2.35 

1.55 
. 35 

1.55 

1.05 

.25 

.C0833 1056 
.COC5CCCO 
.0065 1485 

.015699449.0271838 
.CC575761 .0198626 
.0162666 .0562627 

.0485776 

•C26354C 

9. 85 

7.55 

3.55 

4. 15 

2.96 

1 .05 

2*25 

1.55 
. 35 

1.25 

.65 

.00898465 
.0585 17036 
.COCCCCG 

,0149006 .C33C927 

.0435381 

.ccccco .cccoco 

.C6251C5 

.CCCCCCC 

7.0 5 
.4 5 

o.oc 

2*75 

.25 

o.cc 

1. 55 

C.CC 

.75 

C.CC 


LUBBOCK 

PLACE M PI 
1.0 3.3 

IDATE DEPTH 

4-28-71 

GP 

5.0089,00 




SEED-LEVEL TEMPERATURES 


69 

68 

69 

69 

69 

55 

54 

54 

55 

58 

69 

67 

66 

65 

64 

80 

83 

84 

84 

82 

61 

60 

60 

62 

63 

72 

70 

68 

67 

66 

80 

82 

63 

83 

02 

65 

64 

63 

64 

65 

73 

72 

71 

70 

69 

79 

00 

80 

80 

79 

64 

63 

63 

64 

66 

73 

71 

69 

68 

66 

79 

81 

82 

80 

79 

64 

63 

63 

64 

66 

75 

73 

71 

70 

69 

71 

73 

73 

73 

72 

65 

65 

66 

67 

69 

71 

63 

67 

67 

64 

81 

82 

83 

82 

81 

65 

64 

64 

64 

66 

68 

68 

66 

65 

64 

72 

74 

76 

76 

76 

57 

55 

54 

54 

57 

74 

71 

69 

60 

66 

76 

79 

80 

81 

81 


9999. 


68 

67 

65 

62 

60 

72 

63 

62 

62 

81 

78 

74 

67 

71 

74 

64 

64 

62 

ai 

78 

76 

68 

71 

74 

68 

67 

66 

78 

77 

76 

68 

72 

75 

65 

64 

63 

78 

77 

74 

68 

71 

76 

68 

67 

66 

71 

69 

68 

72 

71 

77 

63 

63 

62 

79 

76 

73 

68 

70 

72 

63 

62 

62 

76 

74 

73 

63 

65 

70 

65 

63 

62 

79 

78 

74 


64 

75 
61 

72 

76 
61 

74 

76 

65 

75 

77 
62 
11 

78 
65 
67 

79 
61 

73 

73 
61 
69 

74 
60 
72 


6 2 

78 
61 
71 

79 
61 

73 
79 
65 

74 

79 
61 

70 
82 

65 

66 

80 
61 
73 
73 
60 
66 
77 
60 

71 


61 

79 
61 

69 

80 
61 
71 
80 

65 

73 
BO 
61 

70 
B4 

64 

66 
81 
63 

71 

74 
60 

65 
80 
58 
70 


60 

79 
61 

67 
00 
62 
70 
01 
66 
72 

80 
63 

68 
84 
65 

65 
60 

66 
70 
75 
61 
63 
81 

59 

60 


59 

78 
65 
67 

79 

65 
69 

80 

60 
71 
79 

66 

67 

64 

65 
65 
79 

68 
69 
73 
63 
62 
82 
60 
67 


56 57 

76 74 

60 72 

65 63 

78 76 

68 74 

60 67 

79 77 

70 74 

69 68 

78 76 

67 71 

65 65 
82 80 

66 67 

65 65 

77 75 

72 74 

68 67 

73 71 

65 67 

60 58 

81 79 

65 69 

6 6 66 


56 

71 

75 

63 

74 

76 
66 

75 

77 
66 
74 

76 

64 

77 
68 

65 

72 
80 

66 
69 
69 

57 
76 
71 
65 
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Output Data 

t OC*ri,ONi LUBBOCK MOISTIIBPi 1,00 PHYSICAL l^PFOANCEl 3.3 DATF | i|«2n«Tl 


TIME 

TEMp 

MOS 

Kl 

OWATFR 

DFLM08 

twatfr 

1 ,00000 

20.55556 

.90000 

,06679 

5,34327 

.18441 

5.34327 

2,00000 

20,00000 

,90000 

,06486 

4,84250 

.1685? 

10.18577 

3,00000 

20,55556 

,90000 

,06679 

4,66296 

.18441 

14.64873 

4,00000 

20,55556 

,90000 

,06679 

4,35151 

,18441 

19.20024 

9,00000 

20,85556 

.90000 

.06679 

4,06087 

,16441 

23.261 1 1 

<>,ooooo 

20,00000 

,90000 

,06486 

3,68028 

.1685? 

26.94139 

T, 00000 

19,4qa<ja 

,90000 

,06299 

3.34210 

,15307 

30.28350 

0 ,0000ft 

18,33333 

,90000 

.05940 

2.95307 

,12346 

33.23656 

9,0000ft 

17,77778 

,90000 

.05768 

2,69740 

.10932 

35.93397 

10,00000 

16,66667 

.90000 

.05441 

2,39754 

,08233 

36.331 5t 

11.00000 

16,11111 

.90000 

,05285 

2.20219 

,06946 

40.53369 

12,00000 

13.55356 

,90000 

,05135 

2.02640 

.05708 

42.56010 

13.00000 

13,00000 

.90000 

0,00000 

0,00000 

0,00000 

42,56010 

10.00000 

1«, 04444 

.90000 

0,00000 

0.00000 

0,00000 

42.56010 

13.00000 

19,88889 

.90000 

0,00000 

0,00000 

0,00000 

42,56010 

16,00000 

13,33333 

.90000 

ft.OOOOO 

0,00000 

0,00000 

42,56010 

1 7 ,00000 

12,77778 

,90000 

0,00000 

0,00000 

0,00000 

42.56010 

18,00000 

12,22222 

.90000 

0,00000 

0,00000 

0,00000 

42.56010 

19,00000 

12,22222 

,90000 

0,00000 

0,00000 

0,00000 

42.56010 

20,00000 

12.77778 

,90000 

0,00000 

0.00000 

0.00000 

42.56010 

21,00000 

14,44044 

,90000 

0,00000 

0,0000ft 

0.00000 

42.56010 

22,00000 

16,66667 

.90000 

,0544! 

2,03703 

,08233 

44,59713 

29,00000 

20.00000 

.90000 

.06486 

2,29635 

.16652 

46.89348 

24,00000 

22,22222 

,90000 

,07289 

2,41313 

,29594 

49.30661 

25,00000 

23,88889 

,90000 

,07946 

2,43903 

,40224 

51.74564 

26,00000 

25,55556 

,90000 

.08651 

2.44440 

.51622 

54,19004 

27,00000 

26,11111 

,90000 

.08897 

2,29630 

.55593 

56.48634 

28,00000 

26.11111 

,90000 

,08897 

2,09200 

,55593 

58,57833 

29,00000 

25,55556 

,90000 

.08651 

1,85327 

,51622 

60.43161 

30,00000 

24,44444 

,90000 

.08176 

1 .59994 

.43938 

62.03155 

31,00000 

23,33333 

.90000 

.07722 

1,38753 

,36595 

63.41907 

32,00000 

21,66667 

.90000 

,07080 

1.17400 

.26221 

64.59307 

33,00000 

20,55556 

.90000 

,06679 

1.02904 

.18441 

65.62211 

34,00000 

19,44444 

.9QOOO 

,06299 

.90563 

.15307 

66.52776 

33,00000 

18,88889 

.90000 

.061 17 

.82406 

.13605 

67.35102 

36,00000 

18,33333 

,90000 

,05940 

.75128 

.12346 

66,10310 

37,00000 

17,77778 

,90000 

,05768 

.68624 

.1093? 

68.78933 

38,00000 

17,2222? 

,90000 

,0560? 

,62800 

,09560 

69,41734 

39,00000 

16,66667 

,90000 

,05441 

,57578 

,08233 

69.9931? 

40,00000 

16,66667 

.90000 

,05441 

,54445 

,08233 

70.53757 

41,00000 

16.11111 

,90000 

.05285 

.50009 

,06946 

71.03766 

42,00000 

16,11111 

.90000 

,05385 

,47366 

.06948 

71.5113? 

43,00000 

16,11111 

,90000 

,05285 

,44863 

,06948 

71.95995 

44,00000 

16,11111 

,90000 

,05285 

.4249? 

.06946 

72,38487 

45.00000 

18,33333 

,90000 

,05940 

.4523? 

,12346 

72.83719 

46,00000 

20,00000 

,90000 

,06486 

,4646ft 

.1665? 

73,30180 

47,00000 

22.2222? 

,90000 

,07289 

,48823 

.29594 

73.79003 

48,00000 

23,88889 

.90000 

.07946 

.49347 

.40224 

74.28350 

49,00000 

26,66667 

,90000 

,091 48 

.52293 

.62704 

74.60643 

germination 

TIME FQUALS 

49 HOURS 





TIME 

TE*p 

90 

83 

91 

60 

92 

00 

93 

8 ? 

9 i | 

81 

95 

78 

96 

70 

97 

7 ? 

96 

7 1 

99 

69 

60 

67 

61 

67 

62 

69 

63 

63 

6 q 

63 

65 

61 

66 

6 * 

67 

66 

66 

62 

69 

63 

70 

67 

71 

71 

72 

70 

73 

76 

74 | 

79 

75 

80 

76 

60 

77 

79 

78 

78 

79 

76 

60 

74 

91 

7 ? 

82 

70 

83 

69 

84 

67 

95 

66 

86 

60 

87 

6 a 

88 

6 ? 

89 

61 

90 

61 

91 

61 

92 

6 ? 

93 

69 

9 a 

68 

95 

7 « 

96 

76 

97 

80 

98 

0 ? 

99 

83 

too 

83 

181 

82 

102 

81 

m3 

79 


nE 

,003 
, O 03 
,003 
.003 
,004 
, 0 fl 3 
.003 
, 0<>3 
.003 
. 00 ^ 
. 00 ? 
. 00 ? 
. no ? 
. 00 ? 
. 00 ? 
.001 
.001 
.001 
. 00 ? 
. 00 ? 
,oos 
,ooa 
,noi 
,ooi 
,000 
.nor 
, 00 ? 
.007 
,007 
.007 
.007 
.006 
.006 
, 00 "! 
,noi 
.nos 
.000 
, OQO 

, non 

, oo 3 

, no 3 

, oo 3 

.non 

.nos 

.007 

.otn 

.oil 

.oio 

.oil 

.016 

.016 

.017 

.010 

.017 


ELONGATION 
,003 
,006 
,009 
.013 
.016 
, 0?0 
, 0?3 
, 0?5 
, 0?8 
.031 
.033 
,036 
.030 
.000 
,00 1 
.003 
, 0«0 
, 0«5 
.007 
,009 
. 0 *3 2 
.016 
,060 
.066 
,072 
,078 
, 0"5 
,093 
.100 
,107 
.110 
, 1?0 
. 1 ? 6 
.131 
.136 
.101 
♦ 1 0 6 
.110 
,110 
.117 
.160 
.163 
.167 
. 172 
,179 
,109 
.200 
.213 
, 2?8 
.203 
,260 
.277 
.295 
.112 


Output Data — Continued 


KNL 

.0070006300 

,0069513809 

.0069513009 

,0070538790 

.0071031280 

. 006711279 ? 

.0050290035 

.0053879056 

.0051674367 

.0050006063 

,0051322093 

.0051322093 

,0052510904 

,0053794914 

,0053794914 

,0055030924 

,0055646930 

, 0055640930 

.0054412919 

.0053794914 

.0051322093 

,0051674367 

.0050290835 

,0062701013 

.0069318261 

.0071523771 

.0071523771 

.0069318201 

. 006711279 ? 

,0062701813 

.0050290035 

.0053879056 

,0049468070 

,0050704080 

.0051322093 

.0051940090 

.0053176909 

.0053176909 

,0054412919 

,0055030924 

,0051030924 

, 0051.030924 

,0054412919 

,0052558904 

.0050704000 

.0050290031 

,0062701013 

.0071 523771 

,0070538790 
.0070046300 
,0070046300 
.0070538790 
.0071 031280 
. 006711279 ? 


emaxt 

8.20 

8.44 

8.44 
8.13 
7.90 
7.70 
7.47 
7.35 
7.29 
6.76 
5 . 8 ? 
5,02 
4.07 

3.93 

3.93 
2.99 

2.52 

2.52 

3.46 

1.93 

5.82 
7.29 

7.47 
7,59 
7.76 

7.82 
7 , 6 ? 
7.76 
7,70 
7,59 

7.47 
7.35 
7 * 2 ' 

6.29 

5 , 8 ? 

5>4 

4.40 

4.40 

3.46 

2.99 

2.99 
2 ’, 99 

3.46 
4.87 


47 

59 


DTTMF EHPrRTENT 

.00747 

0.0 

,01843 

0 > 

.02400 

0,0 

, 032«0 

o s o 

.03912 

0*0 

>4561 

0,0 

,05073 

0,0 

>5547 

0,0 

,08004 

0,0 

,08330 

0,0 

.00567 

0,0 

>0804 

0 > 

.07022 

0 > 

>7234 

0 > 

,07446 

0,0 

,07610 

0,0 
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PART 4.-SIMCOT II: A SIMULATION OF COTTON 

GROWTH AND YIELD 


By J. M. McKinion, D. N\ Baker, J. D. Hesketh, and James W. Jones 2 

INTRODUCTION 


On the following pages we document a seg- 
ment of our work in the simulation of cotton 
growth and yield and provide operating instruc- 
tions for the resultant computer model SIMCOT 
II. 

This work began as an effort to assess the 
theoretical yield limits in commercial upland cot- 
tons through the calculations of photosynthate 
production and respiratory losses (2, 3) 3 and 
evolved into an analysis of the physiological rea- 
sons for the failure of these cottons to attain this 
potential. Stapleton (7) and Stapleton and Mey- 
ers ( 9 ) had called for the application of systems 
methodology to this problem for the purpose of 
design and optimization of machinery arrays, 
and this work resulted in the first digital-com- 
puter simulation of cotton growth ( S ) . Similar 
work was begun independently and at about the 
same time by A. B, Hearn (4) in Uganda.’ 1 

SIMCOT II is a direct descended of SIMCOT, 
which was developed by Duncan ( 5 ) , The over- 
all approach is the same: the calculation of daily 
production and distribution of photosynthate. 
The model continues the same philosophy of 
fruiting, the triggering of abscission of fruit, 


1 Cooperative research of Agricultural Research Serv- 
ice and the Mississippi and South Carolina Agricultural 
Experiment Stations. 

2 Electrical engineer, research agronomist, plant 
physiologist, and agricultural engineer, Southern Re- 
gion, Agricultural Research Service, U.S. Department of 
Agriculture, P.O, Box 5465, Mississippi State, Miss, 
39762. 

* Italic numbers in parentheses refer to items in "Liter- 
ature Cited,” p. 82. 

■* Personal communication, 1970. 


and delays in node formation in response to 
physiological stress in the form of carbohydrate 
shortage, and it continues to limit above-ground 
vegetative growth relative to root growth in re- 
sponse to moisture stress. Development is still 
programed in physiological time (a function of 
temperature) . 

There are, however, a number of fundamental 
changes. A plant-map subroutine has been add- 
ed, which keeps track of the age, weight, and 
nutritional status of fruit at every node. This 
provides an interface of insect damage routines, 
A nitrogen-balance subroutine has been added. 
Light interception is based on plant height rath- 
er than leaf-area index. Height is a useful index 
of the overall foliage display and is not density 
dependent as is leaf-area index. 

The systems analysis has resulted in other 
basic changes. We have found that carbohydrate 
reserves are all available on a temporary basis 
and (now) may approximate 30 % of the dry 
leaf weight. We have found that only squares 
(about 12 days old) are abscised in response to 
carbohydrate stress and only squares within a 
few days of bloom and very small bolls are ab- 
scised in response to nitrogen stress. The most 
fundamental advance of SIMCOT II lies in the 
abolition of the “standard plant” as a means of 
calculating potential growth. The logic replacing 
the standard plant was essential to the simula- 
tion and incorporates the notion of senescence of 
stem and root tissue. This will be described in 
detail elsewhere. These changes represent new 
knowledge about the physiology of cotton, which 
could not have been obtained through classical 
reductionist experimental research. 
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VALIDATION 


SIMCOT II is essentially a carbohydrate bal- 
ance. Beginning with emergence, light intercep- 
tion is calculated daily from plant height. From 
this, photosynthesis is calculated for a unit of 
ground area. Then, light respiration, mainte- 
nance respiration, and growth respiration are 
calculated and subtracted from photosynthesis to 
give a net increment of carbohydrate available 
per plant for growth on that day. Daytime and 
nighttime increments of growth of roots, stems, 
leaves, and fruit are calculated separately. The 
decision as to whether or not to grow leaf and 
stem tissue is based on estimated plant water 
stress. All potential growth is based on tempera- 
ture. 

Leaf weights were obtained weekly from large 
samples of plants grown in State College, Miss., 
in 1969, From these data a table of daily weight 
increments was constructed. A drought eai’ly in 
1969 caused abnormally small leaves. Therefore, 
to obtain the potential (well-watered) leaf in- 
crements needed by SIMCOT II, we multiplied 
the 1969 data by a factor (LEFADD) to obtain 
reasonable leaf weights in the simulations (ta- 
ble 4-1) . The system’s temporary carbohydrate 
storage capacity is equal to 30% of the leaf 
weight. Maximum carryover time is 1 day. Leaf 
senescence is simulated by subtracting from the 
leaf weight the increment added 70 days previ- 
ously. 


TABLE 4-1. — Factors to be used to 
adjust leaf area production 


Plant 


population 

LAPADD 

20,498 

1.76 

41,000 

1,36 

80,000 

1.00 

126,000 

1.00 


Stem growth was developed as follows: Stem 
weights from the 1969 weekly plant samples 
were used to provide potential stem weight in- 
crements for the first 42 days of growth. From 
day 10 to day 42 the growth data fit the following 
expression: 

4*7=0*2+0.06 (STMWT) , (4-1) 

where All 7 is the potential stem growth and 
STMWT is the accumulated stem weight in 
grams. 


After 42 days, potential stem growth was ob- 
tained from the expression 

4*7=0,2+0.06 (STMWT — / 2 .,) , (4-2) 

where Ah 7 is change in weight in grams per day, 
STMWT is stem weight in grains, and h, is stem 
growth 24 days earlier. 

Potential root growth Is computed in the same 
way as stem growth, except that it is only 10 % 
as large and is not affected by moisture stress. 

The growth of each fruit is kept track of indi- 
vidually in two-dimensional matrices (one axis 
representing the main-stem node number and the 
other axis, the fruiting-branch node number). 
Temperature effects are accounted for in com- 
puting the date of initiation, bloom, and boll 
opening. Potential weight increments for each 
fruit are taken from a table of weight incre- 
ments versus fruit age. The data in that table 
are taken from fruit grown with an abundant 
supply of carbohydrates. 

The carbohydrate requirements for potential 
growth of all organs is summed and then divided 
into the net carbohydrate available. All organ 
weights are incremented by that fractional 
amount of their respective potential growth. If 
the ratio is greater than 1, the excess is stored in 
temporary reserve. Any excess beyond 30% of 
leaf weight is assigned to the stem weight and 
root weight. 

When the first square is 6 days from bloom, a 
term called BOLING is computed as the ratio of 
actual to potential fruit growth. If BOLINC is 
less than 0,85, stresses are said to exist, which 
cause the squares to abscise and delay the forma- 
tion of new nodes, as shown in the flow charts 
below. All fruit within the appropriate age brac- 
ket are shed 8 days from the occurrence of the 
stress. 

The Crops 

One crop used to verify our simulation was 
grown in State College, Miss., in 1961 by Bruce 
and Romkens (4 ) . Briefly, the treatment they 
used was as follows: The cotton variety was a 
doubled haploid, ‘Deltapine M8948’. Before 
planting, fertilizer was broadcast at the rates of 
75 lb N, 44 lb P, and 83 lb K per acre. Three side- 
dressings of 75 lb N each were applied at 4-weelt 
intervals after planting. The plants emerged on 
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May 9 and were uniformly spaced in 91-cm rows 
at 20,498 plants per acre. The soil was irrigated 
to field capacity whenever tensiometer readings 
reached 0.3 bar. Insect control was nearly com- 
plete. Ten plants were mapped weekly, and the 
status of the fruit at each node was recorded. We 
summarized those data to produce weekly maps 
of an average or representative plant. 

Another crop grown commercially and de- 
scribed by Jenkins et al. ( 6 ) was planted in 
101.6-cm rows at 41,000 plants per acre in 1972 
in Copiah County, Miss. At planting, fertilizer 
was banded at the rates of 20 lb N, 17.5 lb P, and 
33 lb K per acre. Some moisture stresses were 
allowed to occur during the season. Again, insect 
control was very good. Square and boll counts 
were made weekly on 30 meters of row. 

Results 

More detail on these validation experiments 
can be found in papers by Baker et al. ( 1 ) and by 
Jenkins et al ((>) . Main-stem node number and 
fruiting site production in the 1961 crop are pre- 
sented in figure 4-1. The data describe a typical 
sigmoid growth curve. Growth is exponential at 
first, becoming linear as maintenance respira- 
tion becomes significant and leveling off some- 
what as carbohydrate shortages brought on by 
the high demands for boll growth delay the for- 
mation of new nodes. 

Real and simulated fruit production is pre- 
sented in figure 4-2. To track square production 
this well early in the season, the model was pro- 
gramed to abscise pinhead squares (1 day old) 
in response to solar radiation levels above 700 
ly/day. The carbohydrate stresses are mild at 
first, becoming more severe as the season pro- 
gresses until some of the bolls mature and open 
around September 14. Day-to-day variation in 
the stress was caused by valuations in the weath- 
er (mainly solar radiation) . 

Two points should be mentioned here concern- 
ing the development of this simulation: First, in 
order to track properly the early onset of stresses 
(as evidenced by square shedding and a leveling 
off of site production in the real system) , we had 
to acknowledge the existence of a large vegeta- 
tive sink. Numerous mechanisms were tried and 
coefficients used before we developed equation 
4-2. This equation states that potential stem 
growth is proportional to the weight of the 


vegetative sink and that tissue no longer contrib- 
utes to sink strength (capable of cell wall thick- 
ening) after 24 days. The second point is that all 
earlier (unvalidated) versions of SIM COT were 
based on the assumption that the fruit is most 
likely to abscise in response to stress at bloom 
(about 26 days) and that progressively greater 
stresses would bracket that, with wider and wid- 
er age envelopes of fruit abscised. To accomplish 
this simulation, we were forced to abandon that 
assumption in favor of abscission at an earlier 
age (12 days). Depending on stress intensity 
then, the present model marks squares 8 to 13 
days old, and they are 16 to 21 days old at ab- 
scission. Abscission of any bolls ruins the simu- 
lation. We believe, therefore, that boll shed re- 
sults from nitrogen stress. 

Figure 4-2 shows apparent regrowth 
(squares) on the 140th day. We had stopped 
mapping the real plants before that time, so no 
data are available to verify this. The model pre- 
dicts regrowth because the maturing of some 
bolls made additional photosynthate available 
for development of new meristems. 

The model crop reached a maximum leaf-area 
index (LAI) of 4.2 on day 95 (August 12) and 
yielded 2.98 bales per acre. 

The computer output for the 1972 Copiah 
County crop is presented under “Example 
Runs.” This simulation was obtained with the 
same program as above. The real plants, on the 
average, and the model plants both produced 
seven bolls for a yield of 1.68 bales per acre. 
Again, fruiting was simulated almost perfectly. 
This crop abscised eight young bolls in response 
to nitrogen stresses. 

We feel that this is a minimal validation ef- 
fort. SIMCOT II obviously simulates Delta cot- 
tons well in the Midsouth. We expect that it will 
do well in the Southeast and in much of Texas. 
At present certain modifications are necessary 
for use on the Texas I-Iigh Plains and in dryland 
areas. Generally, these modifications are simple 
to make and should be considered in the follow- 
ing order: 

1. Make sure that the algorithms in PNET for 
computing plant height and light interception 
are performing properly for your crop. This has 
required modification for “okra leafed” cottons 
and for High Plains varieties. 

2. Be sure first square occui’s on the proper 
date. For the High Plains varieties a different 
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number of physiological clays to first square 
must be used. 

3. The WATERZ subroutine is simple. Under 
dryland conditions modifications in selecting 
plant water stress levels may be needed. 


Weaknesses in the simulation in these areas 
have pointed to potentially productive future ex- 
periments. As new information becomes avail- 
able, we (and we hope others) will make appro- 
priate modifications in the model. 




Days from Emergence 

FIGURE 4-1.— A season's rime course of main-stem node and fruiting site development. Open circles and lines trace Iho 
real crop planted at 20.498 plants per acre. Upper, middle, and lower solid circles represent model predictions for 
20,498, 41,000, and 80,000 plants per acre, respectively. 
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Number of Bolls and Squares 



DESCRIPTION AND FLOW CHARTS 



MAIN PROGRAM 


T up MAIM PROGRAM INITIALIZES all VARIABLES. READS IN WEATHER DATA, PLANT 
MANAGEMENT DATA AND CALLS ALL SUBROUTINES TO GROW THE PLANT. AFTER THE PLANT 
AS SEEN GROWN TO THE END OF THE SEASON, THE MAIN PROGRAM THEN PRINTS PERTINENT 
INFORMATION SUCH AS. BALES PER ACRE, NUMBER OF OPEN BOLLS. THE USER CAN CAUSE 
TE PROGRAM TO l ST THE PLANT MAP AS OFTEN AS DESIRED OR NOT AT ALL. IF THE 
USER DESIRES, HE CAN ALSO MAKE CHANGES IK THE FRUIT MATRIX TO SIMULATE INSECT 
DAMAGE . 



SUBROUTINE S II N T IH 



THIS PROGRAM COMPUTES THE LENGTH OF THE DAY FOR ANY DAY OF THE YEAR, 






SUBROUTINE WATERZ 



THIS PROGRAM ADJUSTS SOU MOISTURE FOR EVAPORATION AND RAINFALL AMO 
EVALUATES PLANT STRESS IN TERMS OF WATER REMAINING IN THE SOIL AND THE 
PAN EVAPORATION FOR THE OAY, AROITRARILY. CLIMAT (JJ*4) IS RAINFALL AND 
CLIMAT { J J , 5 ) IS PAN EVAPORATION FOR THE JJTH DAY. RUNOFF {OR SDAKTHROUG H ) 
IS CALCULATED. MOISTURE STRESS IS CALCULATED FROM THE COMBINATION OF 
SOIL WATER CONTENT AND EVAPORATIVE DEMAND AS MEASURER BY PA" EVAPORATION. 


(1) AMD (?) ARE ARBITRARY RELATIONSHIPS. 


SUBROUTINE P H Z 0 A Z 


THIS PROGRAM CALCULATES THE LE/IGTH OF EACH PHYSIOLOGICAL DAY AND 
NIGHT BASED ON THE ESTIMATED AVERAGE TEMPERATURE OF EACH IN °C. One 
PHYSIOLOGICAL DAY IS A 24 HOUR PERIOD IN WHICH THE AVERAGE TEMPERATURE 
WAS 26°C. IF THE AVERAGE TEMPERATURE WAS LESS THAN 26°C, THEN WE HAVE 
A FRACTION OF A PHYSIOLOGICAL DAY. IF THE AVERAGE TEMPERATURE IS 
GREATER THAN 26°C» THEN WE HAVE A PHYSIOLOGICAL OAY PLUS A FRACTION. 
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SUBR0UI1 HE PHET 



THIS SUBROUTINE CALCULATES THE DAY'S INCREMENT OF NET PHOTOSYNTHrtTE 
PROOUCTfON PER PLANT. THE TRACTION OT INCIDENT LIGHT INTERCEPTED (LYTCPT) 
nY THE PLANT CAKQPY IS COMPUTED FROM EMPIRICAL RATA BASED OH PLANT HEIGHT (2) 
PTSRED IS THE "actor by WHICH IEAF HILTINS REDUCES THE RATE Of PHOTOSYNTHESIS 
PSTAHO S POTENTIAL CROSS PHOTOSYNTHATE PRODUCTION OY THE PLANT CANOPY BASED 
ON DAILY TOTA SOLAR RAO (AT I Ofl (WMTSM). THE POTENTIAL DAY'S CROSS PHOTO- 
SYNTHATE PRODUCTION (PSTANO) IS REDUCED BY THE WATER STRESS FACTOR (PTSRED) 
AND OY LYTCPT AND riNALLY OY A PLANT POPULATION FACTOR (POPEAC) TO GIVE 
PHOTOSYNTHATE PRODUCTION ON A PER PLANT BASIS ( PPL ANT ) . THIS 1 
EXPERIMENTS IN INTACT CANOPIES AT 300 PPM CO?, PPlANT IS THEN ADJUSTED FOR 
AVERAGE DA LY CO? LEVEL ABOVE 300 IN FIElS AIR. A PROVISION IS MADE FOR 
FURTHER ADJUSTMENT ?0 ACCOUNT FOR THE EFFECTS OF C0 ? FERTILIZATION ASSUMING A 
RELEASE OF ?00 LO/ACRE/HR FOR FIVE HIOOAY HOURS. EIGHT RESPIRATION (LYTRES) 
IS A FUNCTION OF TEMPERATURE AND PROPORTIONAL TO PHOTOSYNTHATE PRODUCTION. 
MAINTENANCE RESPIRATION IS PROPORTIONAL TO PLANT WEIGHT. GSUOR IS GROWTH 
RESPIRATION. 


SUBROUTINE QPREQZ 


THIS SUBROUTINE CALCULATES THE REQUIRED PHOTOSYNTHATE FOR 
GROWTH QF EACH PLANT PART: ROOTS, STEMS, LEAVES, ANO INDIVIDUAL 
FRUIT WHICH are OLDER THAN 22 DAYS. 
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P 0 D A Y z 


S II B R 0 IJ T I M 



THIS PROGRAM COMPUTES THE PHOTOSVMTHAU USED FOR 
plant growth tor the day. stmw and rot w are set to 

TODAYS STEM AND ROOT WEIGHT BEFORE ANY GROWTH OCCURS. 
THESE TWO VARIABLES ARE THEN USED IN PL T MAP TO RETIRE 
STEM AND ROOT MATERIAL OLDER TUAN 24 DAYS ER-OM THE 
RESPIRING DIOMAS. MAXIMUM CH-0 RESERVE SIZE FQlJALS 30 
PERCENT OF THE LEAF DRY WEIGHT. IT 15 ALL AVAILABLE ON 
ANY GIVEN DAY. PTOTAL = PN ♦ RESERVES. EXCESS PHOTO- 
SYNTHATE DEYOHO THAT NEEDED FOR GROWTH AND RESERVES [5 
ACCUMULATED AS DRY MATTER IN THE ROOT5. 


SUBROUTINE P Q N Y T Z 



THIS PROGRAM CALCULATES THE PHOTOS Y NTHAT E REQUIRED 
FOR PLAflT PARTS FOR THE NIGHT AND COMPUTES THE WEIGHT 
GAINS EXCEPT FOR iFftUtT. IT ALSO COMPUTES WHETHER BOLL 
SET WILL OCCUR RASED ON THE CALCULATED CARBOHYDRATE 
STRESS OR LACK OF IT. POLYIIA IS THE VARIABLE USE 0 TO 
DETERMINE BOU SET AND IT GIVES A VALUE, SIGNALS THAT 
A DOLL MAY RE SET IF A BLOOM IS PRESENT. 
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SUBROUTINE fllTR 



THE NITROGEN SUBROUTINE CALCULATES A NITROGEN RALANCE FOR 
THE PLANT/ NITROGEN REQUIREMENTS FOR STEMS, ROOTS. AND LEAVES ARE 
CALCULATED AS A FUNCTION OF INCREASE OF WEIGHT OF THE GROWING 
TISSUES OF THOSE PLANT PARTS. THE SEED AND BURR RFOUTftEMENTS ARE 
CALCULATED AS A FUNCTION OF TOTAL FRUIT WEIGHT. NITROGEN UPTAKE 
IS CALCULATED ON A PLANT OASIS AS A FUNCTION OF WATER STRESS. 

THIS NITROGEN IS TAKEN FROM A NITROGEN POOL IN THE SOIL THAT 
CONSISTS OF RESIDUAL NITROGEN FROM THE PREVIOUS YEAR, NITROGEN 
FROM DECOMPOSITION OF ORGANIC MATTER, AND NITROGEN FROM PRE- 
EMERGENCE AND S l DEORES S INC. APPLICATIONS. 

WHEN THE PLANT DEMAND EXCEEDS WHAT CAN HE TAKEN UP DAILY, A 
NITROGEN STRESS ( N ST RES) IS DETERMINED FROM THE SEVERITY OF THt 
SHORTAGE. IF MORE NITROGEN IS TAKEN UP THAN CAN HE USED, THEN 
THIS EXCESS NITROGEN IS STORED IN LEAVES , STEMS, AND ROOTS AND 
THE RESERVE HIT ROGER THAT THE PLANT CAN DRAW ON FOR GROWTH IS 
CALCULATED AS A FUNCTION OF TOTAL STEM, ROOT AND LEAF WEIGHT, 

THUS WHEN THE PLANT IS IN A SHORTAGE SITUATION IN WHICH THE DEMAND 
1$ MORE THAR SUPPLY OF NITROGEN THAT CAN BE TAKEN UP FROM THE SOIL 
POOL OF NITROGEN BY THE ROOT SYSTEM, THE PLANT CAN DRAW ON THE 
RESERVE NITROGEN POOL WHICH CONSISTS OF NITROGEN STORED IN ROOTS, 
STEMS, AND LEAVES. THUS A COMPLETE NITROGEN BALANCE IS PERFORMED 
HY THIS SUBROUTINE. 
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S If ft R 0 If T I N E P L T M A. P 



TIMS PROGRAM INITIATES SQUARES, MAI NS T EH NODE'S, FRUITING 
B RANCH INTERNODES, AND A SINGLE VEGETATIVE BRANCH , BOLINC IS 
COMPUTED BASED ON TODAYS BOLL GROWTH DIVIDED BY THE POTENTIAL 
GROWTH. CARBOHYDRATE STRESS IS THEN COMPUTED FROM 001 INC. 
PINHEAD SQUARES ARE ABSCISED IF SOLAR RADIATION IS GREATER 
THAN 700 WATTS/M*, DELAYS [ u FORMING NEW MA INSTEM NODES AND 
FRUITING BRANCH I HT ERffOOES ARE GENERATED IF THERE IS A CARBO- 
HYDRATE STRESS. SQUARES OF AN AGE CENTERED AT )2 DAYS ARE 
ABSCISED IN RESPONSE TO CARBOHYDRATE STRESS ALSO. 
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SUBROUTINE 


P l T M A P (Continued) 
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DEFINITION OF TERMS 


ADD 

Main Program 

GRCOTX 

GSUBR 

Factor used to adjust LAI for dif- 

HISTD 


ferent plant populations. 


AGE 

Counter for real time. 

H20CAP 

ALAIFC 

Leaf area ratio (leaf area/leaf 



weight) . 

H20REM 

ATL(3) 

Not used. 

H20REX 

BALECT 

Bales per acre. 

II20RUN 

BALEFC 

Used in determining flowering rate 

I 


based on plant population. 

IOLD 

BLOOM 

Number of fruit lost due to bloom 



sticking. 


BOLINC(J) 

Percentage of total boll demand, dry 

ISTSQR 


weight, added each day. J is time 
from emergence. 


BOLLST 

Number of bolls lost on a given day 

JB 


due to carbohydrate shortage. 


BOLRES 

Boll respiration. 


CLIMAT(JJ) 

Same as KLYMAT, but used to store 

JJ 


weather data that is used in grow- 
ing season. Julian day changed to 
day from emergence. 

JJK 

CLIMXX 

Variable used to reorder weather 

JNEXT 


data based on days from emergence 
rather than Julian day. 


COSLAT 

COS (LATUDE) . 


COTXX 

Weight of mature bolls. 


C02 

Carbon dioxide fertilization trigger. 

JPLDAY 


Read in with weather data. 

JSEASN 

DAY 

Physiological time. Real variable, 

DAYFAC 

Factor used in calculating length of 

KCARDS 


daytime physiological time, 


DECL (365) 

Variable used for calculating daily 
declination values. 

KLYMAT (J, I) 

DECLIN (365) 

Table of declinations read in, 


DIFSUM 

Not used. 


DMACRE 

Number of square decimeters in 1 



acre. 


EFF 

Factor for adjusting photosynthetic 


ESUBT(I) 

efficiency of plant. 
Evapotranspiration of plant ESUBT. 



(I) has five values. 


EVAPFC 

Maximum transpiration considering 


FAGE (L,M) 

pan evaporation. 

Fruitage matrix for main plant, 

LAI 

FAGV (LV,MV) 

Age of fruit in days from initiation 


at proper LV, MV location, vege- 
tation branch. 

LAST 

FLOWER 

Used in determining flowering rate 


FR(L,M) 

based on plant population. 

Fruiting matrix for main plant. 

LATUDE 

FRV(LV.MV) 

Fruiting matrix where fruit code is 

LEAFW 


stored. LV is vegetative branch 
main-stem node number. MV is 

LEFRNU 


fruiting branch off of vegetative 
branch node number. FR.V(LV, 

LEFSTF 


MV) ; 1 is square, 2 is green boll, 3 
is mature boll, 4 is abscised fruit 



site, 5 is square designated to ab- 
scise, and 6 is boll designated to 

LEFWT 


abscise, 

LOSTD 


Weight of green bolls. 

Vegetative respiration. 

Factor used in controlling boll set- 
ting. 

Water capacity of soil in inches per 
one- ten th of rooting depth. 

Water remaining in soil, 

Water remaining in soil. 

Calculated runoff of rainfall. 

Physiological time. Integer variable. 

Variable used in determining wheth- 
er or not a new physiological day 
has occurred. 

Trigger for subroutine PLTMAP, 
Time is physiological time to first 
square. 

Number used to select how often 
plant will be printed out. Used 
when LAST equals zero. 

Time from emergence. 

Trigger used in selecting output for- 
mat of the program, First day to 
be listed. 

Trigger for output in answering 
question from computer terminal 
“Do you want plant printed out on 
day JJ?” Answer “Zero" for 
“Yes;” “1” for { No." 

Day, of emergence. 

SEASON + 2 Trigger to end simula- 
tion. 

Number of days of weather to be read 
into KLYMAT by the computer. 

Environmental input to program. J 
is maximum number of days, equal 
to 300, I refers to different envi- 
ronmental variables, 1 is solar radi- 
ation in langleys per day, 2 is maxi- 
mum daily temperature in degrees 
Fahrenheit. 3 is minimum daily 
temperature in degrees Fahrenheit. 

4 is rainfall in inches per day. 5 is 
pan evaporation in inches per day. 

8 is Julian day number. 7 is a C0 2 
trigger. 

Leaf-area index (DMVDM 2 ). 

Trigger used in modifying matrices 
for simulating insect damage of 
plant, Zero means no changes, f 
means changes in matrix. 

Latitude of crop being simulated. 

Previous day’s leaf weight. Used in 
calculating senescence. 

Exponent used to adjust growth rate 
of leaves. Equal to 1. 

Percentage of leaf weight that can be 
used to store excess carbohydrate. 

Active tissue weight of leaves. Range 
0 through 70 days. 

Standard controlling boll setting. 
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MATURE SEASON + 1 Trigger to end Simula- 

tion. 

MINFAC Constant used in calculating’ the dec- 

lination. Equal to 0,0002900. 

MI NUTS Variable used in calculating the dec- 

lination. 

NBRV Number of nodes on longest fruiting 

branch of vegetative branch. 

NEW DAY Trigger used in telling when a new 

physiological day has occurred, 1 is 
new. Zero is same. 

NGREEN Not used. 

NOBR1 Number nodes on longest fruiting 

branch of main stem. 

NO NOD Ntli node of main stem. 

NSUM Total fruiting sites* 

NSUMMB Total number of mature bolls. 

NSUMBO Total number of green bolls. 

NSUMNO Number of main-stem nodes. 

NSTJMSQ Total number of squares. 

NUMBER Number of fruit to be removed 

(changed) on main stem. 

NUMBV Number of fruit to be removed 

(changed) on vegetative branch. 

NUMG-RN Number of green bolls. 

NUMOPN Number of open bolls. 

NVEG Nth node of vegetative branch main 

stem. 

NYTTYM Factor used in finding average night 

temperature from minimum daily 
temperature. 

NYTFAC Physiological time of night. Based on 

temperature. 

PA VAIL Available photosynthate for growth. 

PBOLL(J) Boll; weight increments. J is days 

from flower where flower is day 1. 

PCOT (J,I) Daily weight increment of plant 

parts. J is day from emergence. I 
classifies plant part, 1 is roots, 3 is 
stems, 5 is leaves, and 7 is flowers. 
2, 4, 6, 8, and 9 arc not used, 

PLANT Total plant weight. 

PL ANT W Total plant weight less any mature 

boll weight. 

PLTDAY Day of emergence. 

POLYNA Polinntion factor, Zero is conditions 

favorable for polination. 1 is con- 
ditions unfavorable for polination. 

POPFAC DMACRE/P0PPLT. 

POPPLT Number of plants per acre. 

PQBOLX Growth requirement of bolls on daily 

basis. 

PREQ Photosynthate required for 1 day's 

growth. 

PRES Permanent reserve of photosynthate, 

PRESX Permanent reserve of photosynthate. 

PRT(L,M) Matrices used in printing alphanu- 

PRI (L,M) meric representation of main 

plant. 

PRTV (LV,MV) Matrices used in listing alphanumeric 
PRIV (LVjMV) representation of vegetative 

branch, X is square, * is green boll, 
# is mature boll, O is abscised fruit 


site or main-stem node, I is fruit- 
ing branch in ter node, and — is 
main-stem internode. 

RADFAC Radian factor used to convert de- 

grees to radians. 

RESADD Fraction of stalk storage available 

per day. 

RESUFG Maximum stalk reserves as fractions 

of stalk weight. 

RFALL Daily rainfall. 

ROOTWT Active tissue weight of roots. Active 

range, O through 24 days. 

ROWSP Row spacing in centimeters, 

RSUBO Maintenance respiration as fraction 

of plant weight. 

RTS Root weight. 

RTSRUT Exponent used to adjust root growth, 

SEASON Length of season from day of emer- 

gence in days. 

SINLAT SIN (LATUDE) . 

SOILW(I) I is 10 layers of soil. Each layer is 

one- tenth of rooting depth. SOILW 
(I) is water content of the Ith 
layer. 

SQLOST Number of squares lost on a given 

day due to carbohydrate shortage, 

STMRUT Exponent used to adjust stem growth. 

STMWT Active tissue weight of steins. Active 

range, 0 through 24 days. 

STRLMT Stress that stops leaf growth. 

SUMLEF Leaf weight. 

SUMRTS Root weight. 

SUMSTM Stem weight. 

TIME Real time increment. 

TORRES Maximum leaf reserve storage of 

photosynthate as fraction of leaf 
weight. 

TRES Temporary reserve of excess photo- 

synthate. 

TRNSLF Factor to limit translocation from 

leaves during day. 

TTL(I) Title; for example, “Mississippi 

Weather for 1961/’ 

WTBOLL(L,M) Total individual boll weights. L is 
main-stem node number, M is fruit- 
ing branch node number. The first 
node of a fruiting branch is on the 
main stem, 

WTBOLV Individual boll weights on vegetative 

(LV,MV) branch. 

XSTRES Carbohydrate stress, 0 through 4 

integer values, 

NSTRESS(7,5) Table of values assigning a numer- 
ical value to the stress resulting 
from the combination of soil water 
content and evaporative demand as 
measured by pan evaporation, 

Any other variables not defined above are concerned 

with printout of the program, 

Subroutine SUNTYM 

COSDCL COS(DCLVAL). 

D AYLNG Length of daylight in hours. 

DCLVAL Declination for day JDAY. 

JDAY Julian day. 
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SINDCL 

SUNRIZ 


EXIT 


K20DEF 

H20EXC 

K 

K MOIST 


NSW 


PANVAP 

WATER 


1>AYT 

DAYTYM 

MAXMIN 

NYTT 

NYTTYM 

TAVG 


13 MAIN 
LYTCPT 


LYTRES 

PN 

P PLANT 
PSTAND 

PTS 


PTSRED 

RSUBL 

WATTSM 


F 

LEFADD 

NAGE 

PQBOLD 

PQBOLN 

PQBOLX 

PQLEFD 


SIN (DCLVAL) , 

Time from solar noon to sunrise. 

Subroutine WATERZ 

Trigger indicating that H20EXC is 
less than zero. 

Soil water deficiency. 

Excess soil water after deficit has 
been taken care of. 

Number of layers of soil WRT root- 
ingdepth. 

Variable used to calculate second 
subscript of XSTRES(EVAP, 
NSW). 

Subscript of array XSTRESS 
(EVAP,NSW) . 

Pan evaporation in inches per day. 

Rainfall (irrigation). 

Subroutine PHZDAZ 

Daytime physiological time based on 
temperature and length of day. 

Fractional physiological time of day. 

Difference between maximum daily 
temperature and minimum daily 
temperature. 

Nighttime physiological time based 
on temperature and length of 
night. 

Fractional physiological time of 
night. 

Average 24-hour temperature. 

Subroutine PNET 

Photosynthate required to maintain 
present plant material. 

Fraction of incident solar radiation 
intercepted as function of LAI. 

Light respiration. 

Net photosynthate, 

Photosynthate produced per plant. 

Photosynthate produced by stand of 
plants as function of WATTSM. 

Photosynthate after light respiration 
and maintenance have been sub- 
tracted. 

Photosynthate reduction factor. 

Coefficient for light respiration. 

Solar radiation in watts per square 
meter. 

Subroutine QPREQZ 

Not used. 

Factor used to adjust LAI for crops 
with different populations. 

Age of fruit from initiation of square, 

Boli photosynthate requirement for 
full growth during day. 

Boll photosynthate requirement for 
full growth during night. 

Total boll requirement for 24 hours, 

Photosynthate required for full leaf 
growth during day. 


PQLEFN 

PQRESN 

PQRTSD 

PQRTSN 

PQSTMD 

PQSTMN 

QLEF 

QRTS 

QSTM 

QUAN 


F 

ROTW 
ST MW 
TRESXX 

ABC 

PREQZ 

STQN 

TSLIMT 

AD 

AL 

APPL 

AW 

BCON 

BOLI 

BURMIN 

BURR 

BURR! 

CD 

CL 

COTTON 

cw 

DEFCIT 


Photosynthate required for full leaf 
growth during night. 

Requirement for rebuilding depleted 
reserves. 

Photosynthate required for full root 
growth during day. 

Photosynthate required for full root 
growth during night. 

Photosynthate required for full stem 
growth during day. 

Photosynthate required for full stem 
growth during night, 

Not used. Equal to QUAN. 

Not used. Equal to QUAN. 

Not used, Equal to QUAN. 

Constant to obtain proper proportion- 
ing of photosynthate. 

Subroutine PQDAYZ 

Ratio of available photosynthate to 
that required. 

Variable used to calculate root senes- 
cence. 

Variable used to calculate stem sen- 
escence. 

Maximum photosynthate that can be 
translocated during day. 

Subroutine PQNYTZ 

Variable used to sec if boll setting re- 
quirements are met. 

Photosynthate required for growth if 
roots are not grown, 

Same as PREQZ. 

Maximum photosynthate that can be 
stored in leaves. 

Subroutine NITR 

Actual root volume depth. 

Actual root volume length. 

Sidedressing. 

Actual root volume width. 

Burr concentration of nitrogen by 
weight. 

Nitrogen requirement for today’s 
boll growth. 

Maximum nitrogen requirement for 
today’s burr growth. 

Maximum burr usage capacity for 
nitrogen. 

Nitrogen requirement for today’s 
burr grow 7 th, 

Depth of maximum root volume per 
plant. 

Length of maximum root volume per 
plant. 

Total mature and green cotton 
weight. 

Width of maximum root volume per 
plant. 

Difference between boll growth re- 
quirement for nitrogen and nitro- 
gen taken up from soil. 
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DREQN 

EFN 


EXC 

GRGR 

LCONC 

LEFR 

LEFIU 

LEFRS 

NMAX(I) 


NMIN(I) 


NPART 

NSTRES 

PERK 

POM 

R 

RCON 

REQ1 

RESN 

ROTR 

ROTR1 

ROTRS 

RTOT 

SCON 

SEE1>R 

SEEDRI 

STCON 

STMR 

STMRI 

STMRS 

SUPR 

SUPR1 

TEMN 

TOTAL 


Maximum capacity of plant for stor- 
age of nitrogen. 

Efficiency of application of pree mer- 
gence application and side dressing 
(if any). 

Amount of nitrogen taken up above 
needs of plant for growth. 

Amount of fruit growth on plant. 

Leaf concentration of nitrogen by 
weight. 

Maximum carbohydrate storage ca- 
pacity of leaves. 

Nitrogen requirement for today’s 
leaf growth. 

Reserve nitrogen stored in leaves. 

Maximum nitrogen concentration 
possible in plant parts. I is used as 
follows: 1, seed; 3, burrs; 4, stems; 
5, roots. 

Minimum nitrogen concentrations 
possible in plant parts as defined 
for NM AX (I), 

Actual nitrogen in plant parts. I is 
defined as NM AX (I). 

Nitrogen stress factor for reduction 
of growth and abscission of fruit. 

Organic nitrogen pool in soil. 

Percentage of organic matter. 

Rainfall ip inches. 

Nitrogen concentration in roots by 
weight. 

Nitrogen requirement for today’s 
plant growth. 

Reserve nitrogen available in plants 
for growth of fruit. 

Maximum capacity of roots for nitro- 
gen. 

Nitrogen requirement for today’s 
root growth. 

Reserve nitrogen in roots available 
for fruit growth. 

Cumulative sum of nitrogen demand- 
ed by the plant. 

Seed concentration of nitrogen by 
weight. 

Maximum seed usage capacity for 
nitrogen. 

Nitrogen requirement for today's 
fruit growth. 

Nitrogen concentration in stems by 
weight, 

Maximum capacity of stems for nitro- 
gen. 

Nitrogen requirement for today’s 
stem growth. 

Reserve nitrogen in stems available 
for fruit growth. 

Factor used for partitioning nitrogen 
among plant parts. 

Factor used in partitioning nitrogen 
among plant parts, 

Soil pool of available nitrogen. 

Plant requirement for growth plus 


USE 


VPLT 

VTOT 

WCOTX 

WGRCOT 

WLEF 

YVROT 

WSTM 

XN 


XNUP 

XNUP1 


excess nitrogen (if any) taken up. 

Parameter indicating rate of deple- 
tion of reserves. 

Actual root volume. 

Maximum root volume per plant. 

Yesterday’s mature cotton weight. 

Yesterday’s green cotton weight. 

Yesterday's leaf weight. 

Yesterday’s root weight. 

Yesterday’s stem weight. 

Maximum amount of nitrogen plant 
can take up per day. 

Nitrogen uptake of plant. 

Amount of nitrogen taken up by 
plant. 


Subroutine PLTMAP 


AVTEMP 

DSQ 

DSV 

ICNOD 

INOD 

ISQ 

IVNOD 

JK 

JKV 

LEAFWT(JJ) 

NOBR 

NTL 

NTLV 

NV 

PQBOLD 

PQBOLN 

PQBOLX 

ROOTW(JJ) 

STEM ( JJ) 

TAVL 

TBRV 

T (L) 

TMAIN 

TMPV 


Accumulated average temperature 
for first 31 physiological days. 

Day of squaring on main stem. 

Day of squaring on vegetative branch, 

Trigger for adding new node to main- 
stem fruiting’ branch, 

Main-stem node on plant at which the 
first square will appear. 

Trigger for telling when first square 
is on plant. 

Trigger for adding new node to vege- 
tative fruiting branch. 

Matrices for determining when fruit 
will be abscised after triggering the 
abscission process. 

Variable used to senesce leaf materi- 
al. 

Maximum number of nodes on a 
main-stem fruiting branch. 

Trigger for adding squares to a 
fruiting branch, from the main 
stem, 

Trigger for adding squares to a 
fruiting branch for a vegetative 
branch. 

Number of nodes on vegetative main 
stem, 

Photosynthate available for today's 
boll growth. 

Photosynthate available for tonight** 
boll growth. 

Total required photosynthate for 
maximum boll growth for 24 hours. 

Variable used to senesce root materi- 
al, 

Variable used to senesce stem materi- 
al. 

Running average temperature of 
nodes on main stem, 

Time till next node on vegetative 
fruiting branch. 

Time till next node on main-stem 
fruiting branch. 

Time till next node on main stem, 

Running average temperature of 
nodes on vegetative branch. 
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TV Time till next node on vegetative 

main stem. 

WLOST Total root and stem material sen- 

eseed on this day. 

PROGRAM SETUP 

SIMCOT II is written in FORTRAN IV level 
G and has been run on the IBM 370-155 system at 
Clemson University and on the UNIVAC 1106 at 
Mississippi State University. The IBM 370-155 
uses 91 K bytes of storage, and run time with a 
typical 10-day mapping output is 55 seconds. 
Comparable figures for the Uni vac 1106 are 23 
K words and 34 seconds. We normally employ 
disk files for program and data sets, and we 
usually operate from terminal. In converting to 
Univac or IBM equipment the arc cosine term 
in SUNTYM must be used appropriately. 

SIMCOT II can be used for plant population 
studies with up to 80,000 plants per acre. An 
appropriate “LEFADD” factor from table 4-1 
and the per-acre plant population must be sup- 
plied as indicated on line 288 of the sample data. 

Carbon dioxide fertilization experiments can 
be made by inserting a 1 in the appropriate 
column of the climate data. This provides 500 
p/m CO- in the upper part of the plant canopy 
during 6 midday hours (roughly equivalent to 
200 lb COa/acre/hour) . 


XM Variable used in calculating maxi- 

mum number of nodes on a main- 
stem fruiting branch, based on 
plant population, 

AND EXECUTION 

Photosynthetic efficiency can be varied by ap- 
propriate change in PNEFF in line 288 of sam- 
ple data. 

Nitrogen fertility studies can be made with 
different planting applications (INITIALN= 
pounds N per acre on line 290 of the sample data 
set) or by sidedressing with appropriate levels 
of APPL in pounds N per acre on line 36 of 
NTTR. 

Row-spacing studies can be made by changing 
ROWSP on line 288 of the sample data. 

Soil-moisture studies require appropriate 
values for inches of water holding capacity in the 
top 12 inches (SOIL CAP on line 288 of the sam- 
ple data) and may require changes in lines 18-24 
of WATERZ on lines 281 to 283 of the sample 
data to reflect the effect of various climates on 
plant water status. We have not yet attempted to 
validate over a range of moisture stress condi- 
tions for different soils. 

Emergence date studies can be done by chang- 
ing EMERGE on line 288 of the sample data. 



PROGRAM LISTING 


MCKIH+TF.K 


BLOCK BATA 

. COMMON 'COM/FR, DAY, I . JJ, ROOT, ISTSQR 
INTEGER FR<45, S > 

DA T A FR/36 0* 0/ 

REAL ROOT < 20 0.. 9) 

DATA DAV-'O, ISTSQR/0/ 

END 


MCKIH*TF.A 

1 

2 

3 


D I MENS I OH PCOT < 2 0 0, 9 ) , F'BOLL < 60), KLYMAT C 3 u 0, 7 ) . XSTRES < 

&‘ 7 > 5), WTB0LLC45, 8 ), CL I MAT C 300, 7) 

DIMENSION SQILMC10), E$UBT<5>, I.ITBfll V<3 n. S:. 

INTEGER TTLC20) 

DIMENSION DECLC365), DECLINC365) 

DIMENSION ATLC4) 

COMMON .’COM/FR, DAY, I, JJ, PCOT, ISTSAR 
COMMON STMUIT, ROOTWT 
INTEGER FRC45, 8 > 

INTEGER SQLOST, BOLL ST, BLOOM, FRVL 

INTEGER CHARSf/' Xf a CHARS/'*'/, CHARN/' #'/, CHARI/' I'/, CHARO/'O'/ 
INTEGFk hRV',30, 5)/15 u*U/, FAuV<30, 5>/i50*0/, PFTV<30. 5)/150*' v. 

1 PR I V < 3 0, 5 > / 1 5 0 * ' V 
INTEGER XTRES/ 0/, C02/Q/ 

INTEGER FACE <45, 8 ) /-3S 0 * 0/, POLYHA/ 0/ 

INTEGER PRT<45,8 >/360*' '/, PR I <45. 8 V.3fi0+' '/ 

REAL NMAXC5), NMIN<5>, NPAR T < 5 > /5* 0 . /, 'LCONC/ 0 . / 

REAL. LEAFIjJ 

REAL LEFWT.i LO STD, LAI, NYTFAC. NYTT 

iVM, LATUriE.,MINUT3, M INF AC, KLYMAT, " LEFSTF 

REAL WLuST < 3)/3*u . /, hGE/0. / 

DATA WTBQLL/360*0. /, HISTD/. 1/, LQSTD/. 2/, 8TPL MT/. 71/. TRNSLF/. 2/ 

DATA _ WTBpLV/ 15 0*0 . /VDAYFAC/. 55/, NYTKAC/. 45/, EVAPFC/. 75/, RSUBO/ 
^32/, ALfiIFC/1 . 2/, TOPRSF/O. /, RESUFC /.£/, RESAHD/.8/, GSUBR/.375/, 
E'LEFbTF/. 3/, HMII'K 1 >/. 02/, MM IN f 2)/. 04/, NMIN<3>/. 006/, HM1N<4> 009/, 

iNMA// O/. 042/, NMAXC2)/. 04/, NMAX<3)/. 02/, NNAXC4)/. 02/ 

DAT A hTL/ ' DAY ' , • VS ' , ' BOL. ' , ' I HC ' / 

DATA SUMLEF/0. /, SUMSTM/0./, SUMRTS/0. /, GRCO TX/O. /, NUMGRN/O-T NUMOPN/ 
lU/, DIFSUM/0. /, DM ACRE/4 047 0 0 . /, C01XX/0./, TORRE'S/ 0. /, PAVAIL-'O. /, TRES 
'¥*}/• . . . „POL,VNA/0/, SOl.OST/i)/, 2AIJ.ST/0/, LAI/. 01 ••• , PL ANTU/1 . /, 

{ PRt-bft/. Oi/.KIBU /./l./, PRES/. 01/.. RTS/l./, PREQ/0./, NEWHAY/ 

40/, I OLD- 0/, H2ORUN/0./ 

READ <5, 1 OOOX<PCOVCK, J), J=l. 9) . K- = 1 . 4 1 > 

1000 FORMAT <9F5. 0> 

RE AD <5, 1005XPBQLL<J>, J=i, 60) 

1005 F0RMAT< 16F5.U) 

READ <5, 1 003)TTL 
1003 F0RHATC20A4) 

READ <5, 1 001 )KCARDS 

1001 FORMAT (1 10) 

READ<5,.J .01 OX CKLYMATCK, J), J=3 , 7), K=l, KCARDS) 
lulu FuRMhT<7F1 0. 0) 

READ <5, 1 025XDECLIH<J>, J=l, 365) 

1025 FORMAT < 1 6F5 . 2 ) 

Du 2222 J=2.. 365 

2222 I F < AB8 < DECL I N < J > > . LT . 0 . 5 ) BECL I N < -J ) : =DE CL I N < J- 1 ) 

l oi 5 s?(iifi:ss !<STRES<j ' K> ' K * i ' s) - j “ i - 7> 

DO 786 J=42, 200 
PCOT CJ, 1) = . 08 
PCOT CJ, 2) = . 0 
PCOT CJ, 3)=. f)0 
PCOT C J, 4>=0. 

PCOT <J, 5> = . 60 

PCOT CJ, 6> = . 0 

F’COT < J, 7 )-PCOT <41, 7 ) 

PCUTCJ, 8>=0. 

786 PCOT C J, 9)=15. 00 
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PROGRAM LISTING— Continued 


C DESCRIPTIONS OF THE ENVIRONMENT: LATITUDE, LENGTH OF SEASON, WATER 
C CAPACITY OF THE SOIL IN INCHES PER TENTH OF THE ROOTING DEPTH 
6 „. L1 READ<5, 1 02 0> LATUDE, SEASON, H2GCAP, EMERGE, RDWSP, ADD, EFF, POPPLT 
C MANAGEMENT 0« THE CR-P: PLANTING DAY -& THE YEAR, PLANTS PER ACRE 
C ROW SPACING, CENTIMETERS 
2 READ<5, 1 020) POM, EFH, TEMH, RES I DN 
1020 FORMAT < 8F1 0, 0) 

TEMN«<TEMN*EFN/'FOPPLT> *453 . 6+RESI DN*453. G^POPPLT 
RE AIK 5, 7055) JJK, LAST, JB 
7055 FORMAT <3 I 5) 

FLOWER-3 00 0 0 /'POPPLT 
BALEFC=. 0000014+POPPLT 
WS= 0 
bJR= 0 
WL= 0 

M I NFAD=. 0002909 
JSE ASN=SE ASON+2 . 

M ATURE=SE ASON+ 1 . 

NGREEN-SEASON-2. 

RADFAC-, 017-4533 
LATUDE=LATUDE*RADFAC 
JPLBAY-EMERGE 
S I NLAT -SIN < LATUDE > 

COSLAT =COS c; LATUDE > 

DO 8 J* 1,365 
K-DECLIN<J) 

DEGRESS 

M I HUTS-DECL I N < J > -HEGRES 
B DECL < J > =HEGRES+RABFAC+M INUTS*M I NFAC* 1 00. 

k=i 

DO 21 J=l, KCARDS 
CL IMKX“KLYMAT C J, 6) -EMERGE 
I F < CL I MNX ■ LE . 0 . > GO TO 2i 
QLIMAT (K, 7)=‘KLYMAT(J, 7) 

CL I MAT <K, 6)=KLYMAT CJ, 6) 

CL I MAT (K, 5>=KLYMAT<J, 5) 

CL I MAT <K, 4>=KLYMAT< J, 4) 

CL I MAT <K, 3> = 0<LYMAT<J, 3>~32. >*5./9. 

CL I MAT <K, 2)=<KLYMAT< J, 2 >-32. >*5. /9. 

CL I MAT CK, 1 )«KLYMAT < J, 1) 

K“K+1 

21 CONTINUE 

ESUBT<i)“EVAPFC+.5 
ESUBT<2)=EVAPFC*.7 
ESUBT < 3 > -EVAPFC* . 8 
ESUBT < 4 > -EVAPFC* . 9 
ESUBT <5>-EVAPFC 
P OP F AC^DM ACRE/ POP PL T 
ROOTWT-PCOT (I, 1) 

STMLJT =PCOT Cl, 3> 

LEFWT=PCOT < 1, 5) 

1=1 

WRITE <6, 1004>TTL 
1 004 FORMAT < * ',20A4> 

DO 145 J=l, 10 
145 SQILW<J>«H20CAP 
TIME=1. 

DO 998 J->1, JSEASN 

JNEXT=0 

AGE-AGE+TIME 

' IF<AGE, GT, SEASON > GO TO 993 
H20REM=0. 

RFALL-CL.IMhTCJJ, 4> 

CALL. SUNrYM<JPL.PAY. HECL. HAYING, SIM AT . CUSI.AT) 

CALI WATERS ■: uLIhAl', H7GCAP, H20RI IH, STRESS, X3TRES, SOI LU, ESUB r, H20DEF > 
CALL. PI-kOAZi CLIMaT, DAY FAC, NY I FAC- HAYING, 1TO, TUAY, THYT, DAYTYM, 

1 MYT I VII, f FA CD, if ACM, HEW HAY, T AVG > 


PQBQL 


2 RES ADD, NEWDAY, LEFUT, SUMLEF, SUMSTM, 8UMRT8, 

31 NOD, NONOD, HOBR, FACE, NVEG, NBRV, FRV, FAGV, NFL, ADD, HSTRES) 

CALL PQDAY2 (STRESS, STRLMT, PQLEFD, PQSTMD, P0RTSD, P0BOLD, TRES, PRES, 
ipH, RESUFC, LEFWT, XTRES, TRN8LF, LEAFW, STMW, ROTW) 

CALL PQNYT2CPQLEFN, F'QSTMN, PQRTSH, PQBQLN, PQRESH, PQFLR, TRES, 
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PROGRAM LISTING— Continued 

1LEFWT, PRES, I UFRE3, HISTD, l.OSTD, XTRES," LEFSTFj POLYNA, RESUFC, 

2PM< TOPRSF, STRESS, RFALL) „ ,. Tr[ .,, 

CALL PLTNAPCPBOLL, WTBOLL, TAVG, NEWDAY, PQbOLN, PQBOLD, PUBuLX, •jTPt s • 
1NOBR1 • NOHOD, E:OLLST , SQLOST, COTXX, GRCOTX, ROUJSP, PQFLR, POLYMh, FrtuE._ 

21 HOD, HOAR, POF'PLT, NUMGRN, NUMOPN, NVEG, NBRVj FRV, FAGV, WTBuLV, H/. BLuyM. 
3LEAFW, LEFWT, HFL, CL I MAT, STULL ROTW, GBLOS, ULOST, NSTREC) _ 

CALL NITRCPDEP, POM, EFN, TEMhl, UMAX, NMIN, ROWSP, PERN, PUPPLT, _ 

INPART, NSTRES, RESN, DREQN, DEFCIT, USE, LCONC, H2GBEF, H20CAP, UBUJS, 
2LEFWT, COTXX, GRCOTX, RFALL, JJK, FRVL, WS, WR) 

W8=ldSHJLOST < 1 ) 

I.R=l,IR+ULOST<'2> 

PLANT=LEFWT+STMWT+ROOTI»JT+GRCGTX+COTXX+PRES+WLOST< 1 >+WL0ST<2;+UL03 
*T<3) 

PLANTW=PLANT-COTXX 
DO ISO J=l, 10 
ISO H20REM=H20REM+SCU LW< J) 

H20REX=B20REM 

BALECT=COTXX*BALEFC 

LA I =LEFWT*ALA I FCrPOPFAC 

IFO.LT. ISTSQR+OGO TO 750 

HSUM=0 

HSUMMB— 0 

NSUMNO=0 

NCOUHT=0 

NSUMSQ=0 

NSUMBO=U 

DO 728 L=l, NONOD 
DO 728 M=l, NOE'Rl 
I F < FR C L , M > , EQ . 0 ) GO TO 72s 
IF<FRCL, M>.EQ. DPRTCL, M)=CHARX 
IF<FRCL, M>.EQ.2)PRTCL, M>=CHARS 
IF<FR(L, M).EQ.3)PRT<L, H>«CHARN 
IF<FRCL, M).EQ.4)PRTCL, M)-CHARO 
IF<FRCL, M).EQ.5)PRTCL, M)=CHARX 
IFCFRCL, M).EQ.6)PRTCL, M)=CHARS 
IF<FRCL, M).EQ. 1.0R.FR<L, H>.EQ.5)NSUI'1SQ=NSUMS0+1 
IF<FRCL, M> . E0 . 1 . AND, FAGECL, I'D . GE. J 2 ) MCOUNT =NCOUNT ■* 1 
IF<FRCL, M>. EQ . 5, AND. FACE ( L, I'D . GE. 12>NC0UNT=HC0UNT+1 
IF<FRCL, M> . EQ . 2. OR.FRCL, M) . EQ . 6 ) HSU MBG-NSUMBQ+ 1 
IF<FR CL, M> . EQ . 3)NSUMMB=NSUMMB+ 1 
I F< FR <L, M > . EQ . 4) NSUMHO-NSUMHO+ 1 
PRICL, M) “CHAR I 
728 CONTINUE 

DO 828 LV= 1 , NVEG 
DO 328 MV=1, NBRV 
IF<FRV<LV< MV) . EQ. 0) GO TO 828 
IF<FRV<LV< 11 V) . EQ. 1 >PRTV<LV, MV)=CHARX 
IF<FRV<LV< MV) ,EQ.2)PRTV<LV, MV>=CHARS 
IF<FRV<LV< MV) . EQ. 3)PRTVCLV, MV >=CHARN 
IF<FRV<LV< MV) . EQ. 4 )PRTVCLV< MV)=CHARO 
IF<FRV<LV< MV) . EQ. 5>PRTV<LV, MV>=CHARX 
IF<FRV<LV< MV) . EQ. 6>PRTV<LV, MV)=CHARS 
IF<FRV<LV< MV) . EQ. 1 . OR. FRVCLV, MV) . EQ . 5>NSUMSQ=HSUMSQ+1 
IF<FRV<LV< MV) . EQ. 1. AMD. FAGVCLV, MV) . GE. 12>NC0UNT»NC0UNT+1 
IF<FRV<LV< MV) . EQ. 5. AMD. FAGVCLV, MV) . GE . 12>NU0UNT=MGUUNT +1 
IF<FRV<LV< MV) . EQ. 2. OR. FRV < LV, MV > . EQ. S >NSUMBO=NSUMBO+l 
IF<FRV<LV< MV) . EQ. 3>NSUMM8=NSUMMB+1 
IF<FRV<LV< MV) . EQ . 4 > N8UM NO=MS U MHO+ 1 
PRIVCLV, MV)=CHARI 
828 CONTINUE 

IF<LAST. EQ. 0)G0 Tu 5005 
IF< JJ. HE. JJIOGOTO 70 Op 
WRITE <8, 21 1 ) JJ 

ill FORMATS ' < ' HOW MANY FRUIT OH MAIN BRANCH WILL BE ABSCISED ON DAY 
l'< 14, '?' > 

READ C 5, 3065) NUMBER 
WRITE <6, 3 065) NUMBER 
3065 FORMAT < I5> 

IF<NUMBER.LE. 0>GO TO 30 
DO 31 I =1, NUMBER 
WRITEC6, 212) JJ 

212 FORMAT < ' ■'WHICH FRUIT ON MAIN BRANCH WILL BE ABSCISED ON DAY *. 

114,'?') 

REA DC 5, 1 )L, It FR<.L, M) 

WRITEC6, 1 >L, M, FRCL, M> 

51 CONTINUE 
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PROGRAM LISTING— Continued 


211 

212 

30 

213 

214 

215 

216 

217 

218 

219 

214 

1 

220 

221 

222 

223 

215 

1 

224 

1 

225 

32 

226 

2 27 

33 

22fc- 

229 

23 d 

231 

232 

216 

233 

234 

235 

213 

236 

3070 

237 

7000 

238 

239 

5005 

240 

241 

242 

243 

244 

245 

246 

8010 

247 

739 

248 

249 

250 

8001 

251 

8007 

252 

738 

253 

254 

255 

746 

256 

740 

257 

258 

259 

8008 

260 

261 


262 

741 

263 

760 

264 

265 

266 

750 

267 

268 

269 

751 

270 

271 

272 

752 

273 

274 

753 

275 

276 

277 

278 

279 

290 

281 

282 

283 

8002 

284 

8009 

285 

833 

286 

287 

846 


CONTINUE 
WRITE <6, 214) JJ 

FORMAT < ' ■'HOW MANY FRUIT ON VEG. BRANCH WILL BE ABSCISED ON DAY 

1M4,' ?') 

RE AIK 5, 3065) NUMBV 
WR I TE ( 6, 3065 > NUMBV 
I F < NUMBV . LE . 0 ) GO TO 33 
DO 32 1=1, NUMBV 
URITE<6, 215) JJ 

FORMAT < ' J WHICH FRUIT OH VEG. BRANCH WILL BE ABSCISED ON DAY 
114, '?') 

READ <5, 1)LV, MV, FRV<LV, MV) 

WRITE <6, 1)LV, MV, FRV<LV, (IV) 

F0RMAT<5I5> 

CONTINUE 
CONTINUE 
URITE<6, 216>JJ 

FORMAT < ' ', 'DO YOU WANT PLANT PRINTED OUT ON DAY ', 14, '?' ) 

READ <5, DJNEXT 
WRITE <6, DJNEXT 
JJK=JJK+JNEXT 
WRITE <6, 213 )JJ 

FORMAT (' ','IS THERE ANY MORE DATA AFTER DAY M4, '?') 

RE AIK 5, 3070 >L AST 
WRITE <6, 3 070) LAST 
F0RMAT<I5) 

CONTINUE 

CONTINUE 

NSUM=NSIJMSQ+NSUMBO+NSUHNO+NSUMMB~NONOB-NV 

CONTINUE 

IF < HOBR1.LT >2)G0 TO 746 

N0BR2=H0BR1-1 

DO 738 M-l, N0BR2 

MDHOBR1-M+1 

IF<JJ.NE.JJK)GO TO 8001 

WRITEC6, 739XPRTCL, Ml), L=l, NONOD, 2> 

FORMAT < ' ',2X,32<A1,3X)> 

CONTINUE • . 

IF< JJ. NE. JJIOGO TO 8007 

URITE<6, 739XPRICL, Ml), L=l, NONOD, 2) 

CONTINUE 

CONTINUE 

CONTINUE 

IF<JJ.NE. JJIOGO TO 8008 

WRITE <6, 740XPRTCL, 1), L=l, NONOD) 

FORMAT ( ' ', '==', 64<A1, '=')) 

CONTINUE 

IF<N0BR1.LT.2)GQ TO 750 
IF(JJ.NE. JJIOGO TO 8002 • 

DO 741 M=2, H0BR1 _ „ v 

WRITE<6, 760 ) <PRI(L, M), L=2, NOHOD, 2) 

WRITE<6, 760><PRT<L, M), L=2, NOHOD, 2) 

FORMAT < ' 4X,32<A1,3X)> 


'STRESS F4. 1, 


LAI ', F4.2, 


WWP II 4-1 IWl*, ^ ^ 

WR I TE < 6^ 751 )J J? XTREs!" 1 STRESS, CLIMATCJJ, 1), PLANT 
FORMAT < ' ', 'DAY M3,' CH20 STRESS Ml,' H20 
1 SOLAR RAD ',F5.0, ' PLANT WT ', F6. 2) 

WRITE<6, 752) SQLOST, BOLLST, LAI, I, BLOOM T _ 

FORMAT <' ', 'SQUARES LOST- ',12,/ BOLLS LOST M2, 

1' PHYSIOL. DAYS ',13,' BLOUMS LOST 12) 

WRITERS, 753>LEFWT, NOHOD, NSUMSO, NSUMBO, NSUM ^ 

FORMAT <' ', 'LEAF WT ',F5.2, ' MA INSTEM NODES ',12,' # SQUAREo 
2,13,' # GREEN BOLLS M2,' # SITES M3, //) 

CONTINUE 

IF<I.LT. ISTSQR+1) GO TO 870 
NBRV2=NBRV- 1 

IF<NBRV2.LT.l) GO TO 846 

DO 838 MV=1, NBRV2 

MV1=NBRV -MV+1 

IF<JJ.NE. JJIOGO TO 8009 

WRITE<6, 739) <PRTV<LV, MV1), LV=1, NVEG, 2) 

WRITEC6, 739) <PRIV<LV, MV1), LV=1, NVEG, .2) 

CONTINUE 

CONTINUE 

IRJJ^NE. JJIOGO TO 8003 



PROGRAM LISTING— Continued 


288 


WRITEC6, 740) CPRTVCLV, 1 ), LV=1, NV) 

289 

8003 

CONTINUE 

290 


IF< NBRV2.LT. 1) GO TO 850 

291 


IF < JJ. HE. JJK)GO TO 8005 

292 


DO 841 MV=2,NBRV 

?93 


WRITE <6; 760) <PRIV<LV, MV), LV=2, NVEG, 2) 

294 

841 

WRITE <6.. 760) <PRTV<LV.- MV>, LV=2, NVEG, 2) 

295 

8005 

CONTINUE ' 

296 

850 

CONTINUE 

297 


IN.QBV-INGD-1 

298 


I F < J J . HE . J JK ) GO TO 870 

299 


IF < INODV.LT. 0)GQ TO 870 

300 


WRITE <6, 901 ) IKODV 

301 

901 

FORMAT ( * 'VEGETATIVE BRANCH GROWING FROM NODES 

302 


IN STEM',//) 

303 

8006 

CONTINUE 

304 

870 

CONTINUE 

305 


JJK«JJK-JNEXT 

306 


IFCJJ.NE, JJIOGO TO 8011 

307 


I F < LAST . EC! . 0 > GO TO 5515 

308 


WRITE <6/ 220) JJ 

309 

220 

FORMATS \'THIS IS BAY M4, 5X; * WHAT IS THE NEXT 
READ <5, 3065>JJK 

310 


311 

5515 

CONTINUE 

312 


IF (LAST, EQ. t>CO TO 5505 

313 


JJK=JJK+\JB 

314 

5505 

CONTINUE 

315 

8011 

CONTINUE 

316 

998 

CONTINUE 

317 


LATUBE=LATUDE'RA1JFAC 

318 


WRITER 1 050)BALECT, EMERGE, JSEASN, LATUDE 

319 

1050 

FORMAT < 1 VI EL D/ACRE ' , F5, 3, ■’ EMERGENCE DATE 

320 


1 DAYS M3J LATITUDE ',F5.1) 

321 


WRITE <6/ 105DNUMGRN, NUMGFN, H20CAP 

FORMAT < * GREEN BOLLS M2r' # OF OPEN BOLLS 

322 

1051 

323 


2 CAPACITY F4„2> 

324 

1052 

WRITE <6, 1 052JH20RUN, ROWSP, POPPLT 

325 

FORMAT <13H H20 RUN OFF ,F4.2, 14H ROW SPACING , F6 

326 


ITS/ACRE , F7. 0) 

327 


STOP 

328 


END 


SOIL H20 


CPRT TF.B 
MCKIH+TFi 8 

1 ‘ SUBROUTINE SUNTYI'K JPLDAY, DECL, DAYLNG, SI NLAT, COSLAT > 

2 C THIS SUBROUTINE COMPUTES THE LENGTH OF DAY FOR ANY DAY OF THE YEAR 

3 C JPLDAY IS THE DAY OF PLANTING, DAYLNG IS THE DURATION OF SUNLIGHT 

4 C IN HOURS. 

5 C DECL REFERS TO A TABLE OF DECLINATIONS GIVING DECLINATIONS FOR EAC 

6 DIMENSION BECL<365>, PCOTC200.. 9) 

7 COMMON /CCM/FR, DAY, 1 , JJ, PCOT, ISTSQR 

8 INTEGER FR<45, 3 > 

9 RADFAi>. 0174533 

10 JDAY=JJ+ JPLDAY 

11 DDLVAL=DECL< JDAY> 

12 SINDCL= SIN(DCLVAL) 

13 COSBCL=COS(BGLVAL> 

14 SUNR 1 2= < -S I HLAT +S I NDCL ) ✓ < COSLAT *COSDCL ) 

15 SUNR 12= ACOS ( SUNR 1 2 ) /RADF AC 

16 DAYLNG* (SUNR I Z/l 5. >*2, 

17 RETURN 

la END 


MCKIN*TF.C 

1 

2 

3 

4 


SUBROUTINE UATERH ( CL I MAT, H20CAP, H2QRUN, STRESS, XSTRES, SQILU, 
1ESUBT, H20DEF> 

SUBROUTINE (JATER2 ADJUSTS SOIL MOISTURE FOR EVAPORATION AND 
RAINFALL AND EVALUATES PLANT STRESS IN TERMS OF WATER REMAINING IN 
THE SOIL AND THE PAH EVAPORATION FOR THE DAY - ARBITRARILY. 

CLIMAT IS RAINFALL AND PAN EVAPORATION FOR THE DAY INDICATED 
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10 

11 

12 

13 

14 

15 

16 
17 
IS 
1? 
go 
2 1 
22 

23 

24 

25 
{.b 
27 
23 

29 

30 

31 

32 

33 

34 

35 

36 
3? 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
4o 

49 

50 

51 

52 

53 

34 

35 
56 
5? 
59 

59 

60 
61 
62 

63 

64 

65 

66 
6? 
68 

69 

70 


PROGRAM LISTING— Continued 

C H20CAP IS THE USEFUL WATER IN INCHES PER TENTH OF THE ROOTING 
C DEPTH 

C HS0RUN IS THE COMPUTED RUNOFF OR SOAKTHROUGH 

C XSTRESS REFERS TO A TABLE OF VALUES ASSIGNING 'A NUMERICAL VALUE TO 

C THE STRESS RESULTING FROM THE COMBINATION OF SOIL WATER: CONTENT AN 

C EVAPORATIVE DEMAND AS MEASURED BY PAN EVAPORATION 

C SOILW IS THE USEFUL WATER PER TENTH OF THE ROOTING DEPTH 

DIMENSION CL I NAT <3 00* ?>, XSTRES<7, 5), SOILW <10), ESUBT<5>, PCOT<200, 9) 
INTEGER EVAP, FRC45, 8 > 

COMMON / COM 'FR ■ DAY.. I. JJ,. PCOT, ISTSQR 
COMMON STMWT, ROOTWT 
IF<CLIMAT< JJ, 5) . LT.2. CDEVAF-7 
IF (CL I MAT < JJ, 5) . LT. . 47)EVAP=6 
IF(CLIMAT< JJ, 5> . LT. . 3SOEVAF-5 
IF(CLIMAT(JJ, 5) . LT. .31 )EVAP=4 
IF < CL I MAT < JJ, 5) . LT. . 23>EVAP=3 
IF (CL I MAT C JJ; 5) . LT. . 15)EVAP=2 
IF (CL I MAT < JJ, 5> . LT. . 07)EVAP=i 
H20DEF=0. 

IF(CLIMAT< JJ, 4) . LT. . 02) GO TO 175 
DO 153 J=l, 10 

1 53 H20DEF=H20DEF +H20CAP- SO I L.W ( J ) 

H£OEXC=CL I MAT ( J J.. 4 >-H20DEF 
IF(H20EKC.GT. 0. )GO TO 154 

EX I T= 0 . 

WATER=CL IMAT ( JJ.. 4) 

DO 151 J=l; 10 

IF<EXIT. GT . 0. )GO TO 151 

XWATER=WATER 

WATER-WATER- H20CAP+S0ILW<J) 

I F ( WATER . GT . 0 . > GO TO 1 52 
SO I LW ( J > -SO I L W < J ) +XWAT E R 
EXIT=1. 

GO TO 151 

152 3QII.W( J)-H20CAP 
151 CONTINUE 
GO TO 175 

1 54 1 12 ORI J N-H2 0 RUN + H £ OE X C 
DO 155 J=l.. 10 

155 SO 1 1 JJ < J) -H20C AP 

175 EXIT=0. 

PANVAF-CL I MATY J J.. 5> 

K=1 0 

DO 178 J=l,. 10 
GH2iT=S0ILWCJ> 

IF(EXIT. GT. 0. >GO TO 178 
IF(SOILW< J).GT. 0. )G0 TO 176 
K=K~1 

IF(K.LE. 0)K=1 
GO TO 178 

176 KMOIST=< <K*5>+5>/l 0 

P ANVAP=PANV AP*ESUBT < KMO I ST ) 

SO I L.W ( J > -SO I L W ( J > -PANVAP 
[ F < SO I LW (J). GT . 0 . ) GO TO 1 7 7 
PANVAP : -P AH V AP - B \ 120 
HSW-KMO I ST 
GO Tu 178 

177 EX I T= 1 . 

HSW-KMO I ST 
PAHVAP=0. 

178 CONTINUE 
STRESS=XSTRES < EVAP; NSW) 

RETURN 

END 


MCKIN+TF.D 


SUBROUTINE PHHDA2C CL I MAT; DAYFAC, HYTFAC.. DAYLNG; I OLD; 

1TDAY, TNYT, DAYTYM, HYTTYM; TFACD.. TFACN; HEIrfDAY, TAVG) ^ 

DAYFAc i-V FRACTION ABOVE 11 INTEMP FOR DAILY TEMP. AVG. 

NYTFAi: IS FRACTION ABOVE M INTEMP FOR NIGHT TEMP. AVG. 

SUBROUTINE PH2DA2 CALCULATES TJHE LENGTH OF THE PHYSIOLOGICAL DAY A 
BASED ON THE ESTIMATED AVERAGE TEMPERATURE OF EACH; DEG. CENTIGRADE 
IOLD=PHYSI OLOG I CAL TIME, DEGREE-DAYS FROM START OF PLANT GROWTH 
DIMENSION .CLIMAT <300, 7), PCOT (200,. 9) 
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PROGRAM LISTING— Continued 


9 

in 

11 

12 

13 

14 

15 

16 
17 
IS 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 
3 Ci 

31 

32 


20 


COMMON /CGM 'FR, DAY, L JJ.- PuOT, ISTSGR 
REAL HYTFAC,HAXMIH, HYTT, HYTTYM 

INTEGER FR<45, 8 > 

1F<CLIMATCJJ, 2>.GT.30. >CL1MAT< JX 2>=30. 
MAXM1N- CL I MAT < JX 2VCL1NATC JJ, 3> 
TDAY-MAXM IN*DA¥FAC+CL IMAT < J X 3 J 
THYT-MAXM I N*NYTFAC+CL IMAT < J J, 3 > 
TFACD=*<TDAY-12. V14. 

IFCTDAY.LT. 12. )TFACD=0. 

TFACN- ( T HYT“ 12 . V 1 4 . 

IFCTNYT.LT. 12. >TFACN=0. 

BAYT«TFACD*DAYLNG 

EAYTVM-IiAYT/24. 

NYTT-TFACM*<24 . H0AYLNG) 

HYTT YM=NYTT/24 . 

TAVG= H DAY+TNYT!) s2 . 

DAY I NC*DAYTYMf HYTTYM 
DAY~BAV+tiAYINC 
I=<DAY»10.+5. VI O. 

IFO.LT. 1 >1-1 

NEUDAY-I-HXn 

I OLD 5 * I 

RETURN 

END 


MCKIH*TF.£ 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 


C 

c 

c 

c 

c 

c 

c 

c 

c 


ajBPOl IT I HE PNETCI.AL Cl. IMAT > PGPFACj PLAH'I U, BAYTYM.. NYTTYMj RSUB0. 

1 RN/STRESS7TBAY LYTRES, GSUBR, C02, F..FF, ROUSP, NMIH, LCPNC> _ _ _ 

TH IS SUBROUT I HE CAl .CIJl.ATES MET PHOTOWNTHESIS<PN> PER DftY PER PLT. 

BAYTYM AHU R HYTTYM‘aRE LENGTHS OF DAY AND MIGHT IN PHYSIOLOGICAL 

PTSREB IS THE FACTOR BY WHICH LEAP WILTING REDUCES THE RAIE OP 

RSUBL=CCiEPFiC3EHT FOR LIGHT RESPIRATION 
RSU B 0® COEF F I C I ENT FOR MAINTENANCE RESRIRaT I UN 
GSUBR-VEGETAT I OH RESP I RA 1 1 ON CQEP F I Cl ENT 
DIMENSION CL I MAT <30 Ci.- T), PCORSUU, yj> 

REAL LAI/.HYTTYM, LYTCPT, LYTRES 

COMMO^/COM/FR^ DAY? 1 ! J J, PCQT, ISTSQR 

COMMON STMWT, ROOTWT 

REAL LC ONC.* MM 1 H < 3 ) • . ...... 

FHIT=0. 75+ < 0. 25/0. 0i2>*<LuuNu-NMlNv 1 > ? 

IFCFN1T.LT. .?5>FNIT=0.?5 

2=2™63 1 oTi9859*<CLIMAT<JJi. 6>~i 29. ) + 0. 016169*< CCLIMATCJJ, 6>~129. >* 
i *2) 

LYTCPT® 1 . 0756+2/ROWSP 
1 F < LYTCP T . GE . i . > LYTUPT- 1 . 

IF < STRESS;. LT. 10. P PTSRED®. 1 
IF (STRESS. LT . ?. > PTSRED-. 25 
IFCSTRESS.LT . W. ->P1 SRI:.D=. 5 
IFCSTRESS. LT. 7. ) PTSRED®. 8 
IFCSTRESS. LT. 6. >PTSRED=1 . 

PST AHD®? l .3'j 08+ 1! 37379*WAT T SIT* 0 . 0 0 054 1 36* < UIA TTSM**2 ) 

PPL AMT =P ST AND *L YT CPT* POPF A C*P Fb R L B* 0 . 001 
PPLANT«PPLAHT*1 . 06*EFF*FNIT 
C02-CL.IMATCJJ/ 7) , w , r , . 

IFCC02.EQ. 1 JPPLAHT-F'PLAN T+1 . 40b_ 

C02 IS A C02 FERTILISATION THlUUtR, WHEN 
1, PPLAHT IS INCREASED 20-4 DUE TO 500 PPM 
RSUBL-0. 0032125+0. 00668?5*TDAY 
LYTRES-RSUBL+PPLAHT , 

BMAIN-PLANTW+RSUO 0 +• C DAYT'r M HI Y FT t M > 

PTS'-PPLAHT-L YTRE3-BMA I N 
IFCPTS.LE, .0UPTS-0.U1 
PH=PTS/C 1. . +GSUBR) 

RETURN 
END 


EQUAL 

COS. 
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6 

-i 

i 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
2 ? 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 
4 0 
4) 
42 

j 

44 
4 "5 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 


C 

c 


c 

c 


15 


16 


SUBROUTINE QPREQ2<PQLEFD. PQLLFN. PQSTMD. PQSTMN. PQRTSD. PQRTSN. PGBOLD 

1, PQBGLN. PQRESN. PQFLR. PBOLL. NYTTYM. DAYTYM. PQBOLX. TFACD. TFACN. TORRES 

2, PRES.* RESADD. NEUDAY. LEFWT. SUMLEF. SUMSTM. SUMRTS. INOD. NQNuD. 

3N0BR. FAGF. NVEG. NBRV, FRV. FAGV. NFL. ADD. H3TRES> „ 

THIS SUBROUTINE CALCULATES THE PHOTOSYNTHATE REQUIRED FUR STANDARD 
GROWTH BY EACH PART OF THE PLANT ON THE DATE BASED UN THE GROWTH 
OF THE STANDARD PLANT ON THE SAME DAY _ ^ w Akm 

PQLEFD. PQLEFN. ETC. ARE THE STANDARD REQUIREMENTS FOR DAY LD) hNB 
NIGHT <N> FOR LEAF <LEF> GROWTH. STEM (STM) GROWTH, I ETC. 

PQBOLD IS BOLL REQUIREMENT. PQRESN IS REQUIREMENT FOR REBUILDING 
DEPLETED RESERVES. PQFLR IS THE METABOLIC COST OF A FLOWER 
REAL NYTTYM. LEFADD. LEFWT. PCQT<*uO. 9>. PBuLL<bOJ 

INTEGER FRVC30. 5>. FAGV<30. 5> 

INTEGER FR(45. 8 ). FACE <45. 8 ) 

COMMON /COt'VFR. DAY. I. JJ. PCOT. ISToQR 

COMMON STMWT.- RUOTWT 

XYN-NSTRES 

REDM=i.-0.4*XYN 

IFCREDN.LE, 0. >REDN=0. 

LEFADD-ADD 

SUMLEF-SUMLEF+PCOTC I. 5>*LEFAUD 
S UMSTM = SUM S T M +PC OT < I. 3> 

SUMRT S=SUMFvTS+PCOT (I. 1 > 

QUANTS 0 0 U 0 . /2 0498 . 

PCOT < 1 . 5 ) ~FCOT < 1 . 5 > *QU AN 
IF< 1 . GT. 42>GQ TO 15 
PCOTU. 3)=PC0T<I. 3>*G0JAN 
PCOT a. 1 > =PCOT C 1 . 1>*QUAN 
GO TO 16 

PCOT < I. 3>=< -2+. 06*STMWT>*QUAN 
PC0T< I. 1>=< . 02+. 0 06*RGQTWT ) +QUAN 
CONTINUE 

PQLEFN=PCOT < 1 . 5>*NYTTYM*LEFADD 
PQLEFD=PCOT< I. 5 > *D AYT YM*LEFADD 

pqstmd*pcot n . 3 >*dayi ym 

PQSTMN«PCOT< I . 3)* NYTTYM. 

PQRTSD=PCOTq, 1)* DAYTYM 
PORTftH=PCOT ■; 1*1 . * HYTT YM 
paBQLD=0. 

PORE S( j - < T OPRES-F'RES > *RESADD 
IFCI.UE. ISTSQR+ 28) GO TO li 
DO 10 L -I NOD, NOHOD 
DO 10 M=l.< NOF3R 
HAGE=FAGE<L,H>-28+ 6 
IFWiGE.LT. 1) GU TO 10 
IF (FRO.., M) . EC!. 1 .GU TO 8 
IF(FR<L, M) . HE. 2. GO TO 10 
IF<NAGE.GT . 60>GO TO 10 

PQBOI-D»PBOLL< NAGE >*DAYTYM+PQBOLD 
P6B0LN=PB0LL < HAGE) *NYTTYI'1+Pt!BULN 
10 CONTINUE 

DO 12 LV=3, NVEG 
DO 12 MV=1, HBRV 
NAGE®FAGV<I.V, MV)- 28+ b 
IF(NAGE.LT.l) GO TO 12 


59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 


IF<FRV<LV, MV).Eti. l)GO TO y 

IFCFRV<LV, MV).HF.2)G0 TO 12 
IF<NAGE.GT. 60>GO TO is. 

5 pqbolS=pboll<hage)*daytym+rqbold 

PQBOLN=PQBOLN+PBOLL < URGE ) *NY TTY 1 1 
12 CONTINUE 

1 1 PQBOL.X=PQBpLD+PQBpLN 

IF (PQBOLX. LE. 0)NFL-1 
IF(PQBOLX.GT.0)NFL=0 
IF<PQBOLX. LE. 0. >PU!BOLX-l . 

RETURN 

END 
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1 



SUBROUTINE PQDHY2< STRESS, STRLMT, PQLEFD, 

2 



IRES, F'N, RESUFC, LEFWT, MTRES, TRNSLF, LEAF'W, 

3 

C 


PQDAY2 COMPUTES THE PHGTCiSYNIHATE USED 

4 



DIMENSION FE<45, 8 > 

5 



DIMENSION PCQTC200, S') 

6 



COMMON /COM/FR, DAY, L JJ, PLOT, ISTSQR 

7 



COMMON STMMT, ROOTWT 

S 

9 



INTEGER XT RES 

REAL LEAR.J 

10 



REAL LEFUIT 

n 



LEAFW=LEFWT 

12 



XTRES=0 

13 



ROTW-ROOTUT 

14 



STMU-STMWT 

15 



TRESHK=F'H*TRNSLF 

16 



PN=PN-TRESXX 

17 



IF (STRESS. GT. STRLMT > GO TO 41 

IS 



PREQ-PQL EFD+PQSTMD+FQBOL.O+PQRTSD 

19 



I F (PREQ . GT . PhD GO TO 40 

20 

c 


NO STRESS ON PLANT 

21 



TRES=PN - FREQ 

22 


50 

L E F WT =L EF W T+P GLEF Ii 

23 



ST M WT - S T MW T+P Q STMD 

24 



PGUl U 1 -ROOTW i + F'QRYSIi 

25 



GO TO 200 

26 


40 

PAVA I L =PN +TRES +PRE S*RESUF C 

27 



XTRES=3 

28 



1 F CPREQ. GT. PA VAIL) GO TO 60 

29 



IFCF'REQ. GT.PN+TRES)GO TO 70 

30 

c 


USES TEMPORARY RESERVES AND PH ONLY 

31 



T RES-PN+ T RES - PREQ 

32 



GO TO 50 

33 


70 

PRES=PRES-PRE Q+ PN+ TRES 

34 

c 


ALL TEMP. RESERVES ARE USED AS WELL AS 

35 



TRES=0. 

36 



GO TO 50 

37 


41 

PREi3=PQBCO+PQRTSD 

38 



I F ( PREQ. GT . PN > GO TO 42 

'39 

D 


WATER STRESS ONLY 

40 



TRES=PN-PREG 

41 


51 

ROOTWT =ROOTWT +PQRTSD 

42 



GO TO 200 

43 


42 

P A V A I L =PN+TR E S+P RES*R ES U F C 

41 



XTRES=3 

45 



IF<PREQ. GT.PAVAIL) GO TO 61 

46 



IF(PREQ. GT . PN+TRES >CO TO 72 

47 

c 


PLANT USES PN AND TEMP. RESERVES ONLY 

48 



TRES=PN+ TRES -PRES 

49 



GO TO 51 

50 

c 

72 

PRES-PRES-PREQ+F'H+TRES 

51 


PLANT DIPS INTO PERMANENT RESERVES 

52 



TRES=0. 

53 



GO TO 51 

54 


61 

TRES=0. 

55 

c 


CARBOHYDRATE STRESS AND MOISTURE STRESS 

56 



PRES=PRES-PRES*RESUFC 




F =P AVA I L.-'F'REQ 

58 

c 


F=RATID UF AVA.IL PH TO REQUIRED 

59 



IFCF.LT. .5>XTRES=3 

6Cl 



ROOTWT =ROOTUT+PQRTSD#F 

61 



PQ80LD=P6B0LD*F 

62 



GO TO 200 

b3 


60 

TRES* 0 . 

64 

c 


CARBOHYDRATE STRESS ONLY 

65 



PRES=PRES- PRES +RESUF C 

66 



F=PAVttIL/PREQ 

67 



LEFWT =LEFWT+PQLEFD*F 

68 



STMMT=STMMT+PQSTMD*F 

69 



F'QBOL D=PQBOLD*F 

70 


200 

CONTINUE 

71 



PH=0. 

72 



TR E S* TRES+ TRE SXH 

73 



RETURN 

74 



END 
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MCKIN*TF. H 
1 


4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IS 

19 

20 
21 
o>. 

23 

24 

25 

26 

27 

28 

29 

30 

31 

33 

: 34 

7C 

gj 

36 

37 
33 

39 

40 

41 
45 

43 

44 

45 

46 

47 

48 

49 
•50 

51 

52 

53 

54 

55 

56 

57 

38 
59 

50 

51 
62 

63 

64 


C 

C 

C 


SI. IB POUT I ME PQNYT 2<PQl EFH, PCS I MN, PQR TSN, POBOLH, PQRESN, POPUP, TRES, 
tl.EFWT, PRES, TORRES, HISTD, LOSTH, XTPES, l.EFSTF, POLYHA, RES 
1UFC, PH, TOPRSF, STRESS, RFALL > . ^ 


IF A BLOOM IS PRESENT 
DIMENSION FRC45, 8 ? 

D I MENS I ON ROOT < 2 00, 9 ) 

COMMON /COM- FR, BAY, I, JJ, ROOT, ISTSOR 

COMMON STMMT, ROOTWT 

INTEGER POLYHA, HIRES 

PEAL I..EFWT, LOSTD, LEFS IF 

TORRES'S TMUT ♦ T OPRSF 

POLVNA= 1 . 0 

XTRES=0 

PRESX=PRES 

TSLIMT=L.EFUT*LEFSTF 

I F < T RES . GT . T SL I NT >TRES=TSL I MT 

IFCPRESX.LE. 0. >PRtSX=.00t F „ 

F'REiT-PQI EFN+PQSTMN+F'ORTSH+PQbOLN * F'URLsN+Fuh L.R 

IFCPPE0,GT.TRES>GO TO 210 

TRES-TRF.S-F'REQ 

230 ROOTUT =ROOTUT +PQRTSN 
250 LEFWT=LEFWT+PQL£FN 

STMIJT =STMUT +P0STMN 
PRES=PRESI-PQRESN 
IF < PRES . GT . TORRES) GO. TO .231 
232 tFCTRES.LT. MlSTD>GO NJ fc-uu 
F'OLVHA= t • 

GO TO 600 

231 TRES'TRFS+PRES- I'OPRES 
F'RE8=T0I'RE8 

GO TO 232 

21 0 PftVAIL=TRES+PRES*RESI IRC 

1 F < PRES . GT . PA'v'A It.JGO T 0 22 0 
PRES=PRES-PREQ+ TRIES 
1 RES= 0 . 

ABC'CPRESX-PRESJ/PRESX 
IFCABC.LT. LOSTD>GO TO 221 
GO TO 230 
221 F'OLYNA=l . 0 
GO TO 230 
220 TRES=0. 

PF:ES=PRES-PRES*RtsUFC 
PREQfL-F'RLQ-PuRTsN _ . 

I F < PRECIS . GT . F'AVfil L > UO UJ 24 U 
ROOTWT =ROOTWT + CPAVAI l.-PREQ2> 

240 STQFNPQLEFN+PSSTMN+PGlBOLH+PQRESN+PQFLR 
F'PAVAIL/STQN 
I F < F . LE . . 8 > HIRES- 1 
I F < F . LE , . 6 > H I REb-2 
IFCF.L.E, .4>XTRES*3 
IF <F . LE. . 1 )KTF‘ES“4 
L EFW T-l .EF liJT+POLEIH +f 
STMWT'STMWT+PQSTMH+F 
F'QBOL-N-PQBOLH+F 
P R ES'P RES+ PGRESH*F 
600 CONTINUE „ . . 

I F C RF ALL .GT. U. 5 PuL v Hi I- t > . 

RETURN 

END 


MCKIH*TF. I 
1 


5 

6 


2LEFWT, CGTXX* GRUUiX, R, JJK, l-RVL, Wfcw WR> 


' f NTEGER ' FR < 45, S"> „ v 
COMMON STMIJT, ROOTUT 



PROGRAM LISTING— Continued 


8 
9 
10 
11 
1 id 

13 

14 

15 

1 6 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 
53 
56 
W 

5 c .i 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 
Vi 

72 

73 

74 

75 

76 

77 

78 

7Q 

80 

81 

82 

83 

84 


reaPhmaxcs?. NMIN<5>, NPARTC5?. lcohc.lefr. lefwt, I efrs 
data APPL/'O. S> WLEF/0. WSTH/0. s> WuRCu T/u. Ukul /u. 
DATA BCON^O. WCQTX/0 . s TT 

NITROGEN SUBROUTINE FOR SlMuOI II 
BIJRR=0. 

DEFCIT=0. 

SEEDR=0. 

COTTON=< CO rXX+GRCOTXJ 
e:'.c-o. 

GRGk-COT T OH- < WGR cOT+WCUTfl > 

XH— . QF4 5*20000.. POF'PLT 

NSTRES=0 

CfcMROWSP 

CD=30. 48 „ . , 

f:L=f .''ROWSFvF'OPPLT >*<30. 43**2 j 

VTOT=CU*CD*CL 
AW=( 1./42. ) *3 0 . 48* C J J+7 > 

AL=ftW ^ 

AD=<: 1 . '28. )*3U. 4© +■ t. J -J+T’ 

IFCAW.GT.Cld) AW=CI.I 
IF< AL. GT . UL>AL=CL. 

IF <AD«GT.CD)AD=UD 
VF’LT=AW*AD*AL 

PERN=<VPLT/V1 0T>^74. 5+P0H/P0PPLT 
PERN=PERN* (1 . - CHSOBEF'C H2UCAP* lU. > >*** > , ,, .. r . 
TEMII=TEMH+CVTOT--VT4.T>*74. S*PUM'CPUPPL T*vTUT? 

CARDS INSERTED IF SI OF. DRESSED.. FORM AS FOLLOWS 

I F < J J . EQ . 4 0 > AF'PL.=S6 . 7 

IFCAPPL.LT. 1.5 GO TO I 

IFCR.LT. 0. 05) GO TO 1 

TEHN-TEMN+ <APPL*EFN*4S3. 6VF0PPLT 

APPL=0. 

1 XHUF-XH 
USE=0. 

SUPP-l • 

SEEBR=NMAX <2 )*COTTOH* 0. 4 16-MPART < 2 > 

BURR=NMAX < 3 > *C OT TOIHU. Evy-NPftRT < J J 
22 LEFR-HMANC 1 >*LEFWT-NPART < 1 ) 

STMR--NMAX < 4 ) *STMWT-NPART ( 4 > . 

ROTR®NMAX < 4 ) *ROOTWT-MPftRl c b > 

1FCLEFR.LT. 0.5 L.EFR-U. 

IFCSEEDP.LT. o.) SEEHR=0. 

IFCBURR.LT. 0.) BURR=U. 

IFCSTMR.L.T. 0. > STI*IR“0. 

I F C ROTR . LT . 0 . > F:OTR= 0 . 

0REQH-3E l-DR+LEFR i EsURFH STMF: : Ru I fc 
SEEUR t =HMA X < 2 > *GRGR* 0 . 4 1 6 
L EFR1 -HMAXC 1 )*CU.:i ; Ml ML EF> 

(FCIEFRI.LT, OH.t.f R1=0. 

BiJRM IN-MIN. NtTR. REG FOR BUR GROUIH 
BIJRMlN=l-fltIHCO=*Cif:GR*n.278 
B U RR 1 = C HM AX < 3 ) - H M I H C 3 ) > * GR GR* 0.2 7 3 
S T MR 1 -UMAX ( 4 > * < S TMWT ■ WSTM > 

ROTR 1 -'NMAX < 4 >*< ROOTWT -URO V > 

BOLi=BURMIN+SEEDPl 
IFCBULl. LE. 0. > 901.1=0. 000001 
REQ 1 -I.EF R 1 +8FF- HR 1 H3URR 1 +STMR HRO I R 1 +BURM I N 
IFCH20DEF.GT. 0.5*«2QCAP*10. >XNUP=XN*G.9 
1 F CH20DEF. GT. 0. 6*H2QCAP*10. >XNUP-XH*0. 8 
lFCi iPOOFf. GT. O.f. . IRCu'iP 1 1 0. TXKUP I 0 
II- C!-i:- j IJ0i-h . A t . f.i, R+ N30LAP* 1 0. )‘>'r!! IP :-U+» • . 4 
i FCM20DFL . GT . 9c ' i iRC'f T 'P ; f HI. > V HUP 
IhCl'tRNi II.'mN LI. 'iTJP.J XH • -f " :.'H i 
XMUP1-XNUP 

IFC REQl.GT.XNUP>GO TO 2 
1 F C RF.Q 1 . 1 E . 0 - O ) RtQ 1 - 0 . 

I F C RSI? 1 . I T. XHUP > GO TO 10 
XHUP-REQ1 
GO TO 3 

£ IFCXHUP. I T .B0L1 > GO TO 6 

SUPR“ C XNUP-B0L 1 >AREQ1-B0L1 > 

IFCSUPR. LT. . 0 0 0 0 0 1 >SUPR=. 000001 
HSTPES=1 

3 IFCPERH.GE.XNUP> GO TO 4 
I F CPERH+TEMN. GE. XNUFO GO TO 5 
IFCPERN+TEMH.I T.ITOLl > GO TO 6 


:'l\ 


LEFR1 

SCGN-‘0. 
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PROGRAM LISTING— Continued 


SUPR 1 = < PERN+TEMN-BOL 1 >/ CREQl -BOL 1 

I F < SUPR 1 . L.T . SUPR > SUPR=SUPR 1 
I F C SUPR . LT . . 0 0 0 0 0 1 ) SUPR= .000001 
MSTRES= 1 

5 TEMN-TEHN-XNUP+PERH 
IFOEMH.LT. 0. CO TEMN=0. 

4 HPART < 1 > -LEFR 1 *SUPR+NPART < 1 > 

I F (HF'ART (l).LT. . 0001) HPARTC1)“.000] 
HP ART C £ ) “HF'ART < 2 > +SEEDR 1 


HP ART C £ ) -HF'ART < £ > +SEEDR 1 

I F ( HF'ART ( 2 ) . LT . . 0 0 0 1 > NF'ART<2)=. 0001 

HP AR F ( 3 ) “HPART ( 3 ) +BURM I H 

HP AR T < 3 ) “HPART < 3 ) +BURR 1 *SUPR 

1 F < HF'ART < 3 ) . LT. . 0001 > HPART(3)=. 0001 

HF'ART < 4 > =STMR i ■♦•SUF'R+HPART C 4 > 

I F ( HF'ART ( 4 ) . LT. . 0001 ) HPART(4)=. 0001 
HPART C 5 ) “ROT R 1 +8UPR+HF ART ( 5) . j 

IF (HF'ART (5) . LT. . 0001) NPART(5)=. 0U01 
GO TO £0 

DEFCIT=BOLl -XNUP 
IFCRESN. GT. 0, ) GO TO 7 
H8TRES=3 

IF(HEFCIT/BOLi.GT. 0.67) NSTRES“4 
HF'ART < 2 ) =HPART < £ > +XNUP*SEEDR 1 /BOL 1 
IFCNPART (2) . LT. . 0001) NPART<2>*. 0001 
HF'ART ( 3 > =HPA RT < 3 ) +XNUP+BURMI H/BOL 1 
IF (HF'ART (3) . LT. . 0001 ) HF'ART<3)=. UUUl 
TEMH=TEMH-XHUP+PERH 
IFOEMH.LT. 0. ) TEMH-0. 

GO TO 20 

HF'ART ( 2 ) “HPART < 2 > +SEEDR 1 
IF (HF'ART (2) . LT. . 0001 ) HPARK2)-. UU01 
HF'ART (3>=HPART<3)+BLIRMIN 
IF(HPART(3) . LT. . 00ul> HPART(3; ,= . Ouul 
HPART (1 > ==HF'APT ( 1 > -DEFC I TM.EFR8/RESH 
I F < HPART ( 1 ) , LT . . 0 0 0 1 > HF'ART < 1 ) =. 0 00 1 
HPART ( 4 ) “HPART < 4 ) -DEFC I T *8TMRS/REsH 
IFCHPART (4) . LT. . 0001 ) HPART ' 4 > — . UOOl 
HPART (5) “HPART < 5 ) -DEFC I T *RQTRS/REsN 
IF(HPART (5) . LT. . 0001) NF'ART(5)=. 0001 
TEMN^TEMN-XHUP+PERH 
HSTRES=2: 

USE= < IiEFCI T-RESN) /BuLl 
I F ( USE . GT . ■ 1 ) NSTRE3=3 
I F < USE . GT . 0 . 9 0 ) MSI RES=4 
IF ( [EMN . LE . XNUP > T EMM=Q . 

3 EXODREQN-REQi 

TEMI !•-- TEi'lt I FXC -RFQ1 fPFPH 

IF < | k - 1 |H • L. 1 . 0 . > I r.Mri= 0 . _ . . 

IKdiKEOH •SKUIO.I E. 0.0) GO 10 20 
HPART<2) ••UPf .Kl (2.? tuELJiRi . 

HP ART <3 ) =HPART < 3 ) +EXC*BURR/ < DREQN^SEEDR ) +BURR 1 

HP APT< 5 1 : “HPART (5) +EXC#R0TR7 ( DFlioiHSEEDR ) +R0TR 1 
IF(HPART<5) . LT. . 0001) HFART(5) = . UUUl 
STMWT “STMWT +W3 

Eefrs5part(1)-hmih(1)*lefwt 
IFCCQTXX+GRCOTX. LT . 0. 01) uO Tu 21 

HP ART (2 ) “HP AR T ( 2 ) -GBLoi*NPART < 2 ) /COTTON 

HF'APT^ 3) “HPART < :;>--GBL0sffipART <3 ) /COTT OH 
IFCNPART (3 ) . LT . : 0001 > HPART<3>=. 0001 
1 STC0H=yPART(4)/STMWT . 

IF (STCOH.LT. . 0001) sTlUH-.OUUI 
RCOH“NPART < 5)/RQ0TWT 
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PROGRAM LIST1 NG— Continued 


162 


LCONC=NPART C 1 ) /LEFWT 

163 


IFCLCONC.LT. . 0001 > LCONC 

164 


IFCl.EFRS.LT. 0. > IEFRS=0. 

165 


IFCSTMRS. LT. 0. > STMRS=0. 

166 


IFCROTRS. LT. 0. > ROTRS=0. 

167 


RESN=LEFRS+STMRS+ROTRS 

1 6o 


IFCRESN.LT. 0.)RESN=0. 

1 69 


IFCJJ.NE. JJK) GO TO 80 

1?0 


WRITEC6, 50) LCONC.. SC OIL BC 

171 

50 

FORMAT C ' ’ , ' CUNCENTRAT I 

172 


WRITE <6, 75 > HP ART 

173 

75 

FORMAT C' NPART < 1-5) 

174 

G r i 

CONTINUE 

176 


7? WLEF=LEFWT 

176 


UGRCOT “GRCOTX 

177 


WS TM-STMUI T - WS 

178 


UCOTX=COTXX 

179 


WROT =R OOTWT-WR 

ISO 


STM WT = S T MU T - WS 

181 


ROOTWT -ROOTWT-WR 

1S2 


RETURN 

183 


END 


5F7. 4, j HSTRE8--', 12) 


. 5F8.4) 


MCKIN*CU1C0T, J 
1 
2 

3 

4 

cr 


b 

7 

& 

9 

10 

11 

12 

13 

14 

15 

16 
1? 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
33 

39 

40 

41 

42 

43 

44 

45 

46 

47 
43 

49 

50 


8000 


C 

C 


l 


SUBROUTINE PLTMAP<PBOLL, WTBQLL, TAVG, HEUHAY.* PGBOLN, PQBOLD, PQBOLX, 
1XTRES, NOBR1, NONOD, BGLLST, SQLOST, COT XX, GRCOTX, ROWSP, PQFLR, POLYHA, 
2FAGE, I NOD, NOBR, F'UPPLT, HUMGRN, NUMGPN, NVEG, NBRV, FRV, FAGV, UT60LV, HV 
3, BLOOM, LEAFU, LEFWT, NFL, CL I MAT, STMW, ROTU GBLOS, WLOST, NSTRES, JJK > 
DIMENSION CL I MAT <300, 7) 

INTEGER JK<45, 8V360*0^ JKV<3Q, 5>/15G+0/ 

DIMENSION UL0ST<3) ’ 

DIMENSION STEMU<200>j ROOTW<200) 

COMMON /COM^FRj DAY, I, JJ, ROOT, ISTSGR 
COMMON STMWT, ROOTUT 
REAL LEhFW 
REAL LEFI.IT 

REAL LEAFUTC 20 0 > ,'2 0 0*0. / 

INTEGER SQLOST, BOLLST, BLOOM 
I NTEGER FRY < 3 CL 5 > , FAGV C 3 0, 5 ) 

DATA AVTEMP/0. ISQ/O/’, TMAIH/O. ✓ 

REAL TMPVC30>/30*0. /, DSV<30V30*0. / 

INTEGER NTLV<30)^30*0/ 

REAL TBRVC30V3 0*0. A WTBOLVOO, 5> 

INTEGER XT RES , PR <45, S >.« NTL<45)/45*0/j FACE <45, 8 >, POLYHA 
REAL PCGT (200, 9), PBOLL ( 6*0 ) , UTB0LLC45. 0 ), BSQ<45)/45*0. 

1 TAVL (45) /45* 0./,T( 45 V45* 0- ✓ 

IF<NSTRES.EQ.1>NSTRES=0 
ROOTU< J J >-ROOTWT“ROTU 
LAST=0 
GBLQS=0. 

STEMU < J J > “STMUT-STMW 
IF< JJ, LE. 24) GO TO 8000 
5>TMWT=S I NUT- ST EMU < JJ-24 ) 

ROOTUT= ROGTWT-ROOTW ( J J-24 ) 

WLOST < 1 )=STEMU< JJ-24) 

UL09T < 2 >=ROOTU< JJ-24) 

CONTINUE 

PQFLR-0. 

XTRES- 0 

LeAFUT < J J J =L EFUT- LEAFW 

XM=0. 0529-C2, 14?*P0PPU >/< 10.**7) 

NDBR=2 ■ 0+XM+ROWSP+ i . 

THE IS ADDED TO HOBR TO ACCOUNT FOR THE MAIN STEM NODE 

WHERE THE BRANCH IS ATTACHED. 

IFCISQ.EG. OGO TO 3 
I F ( I . GE . 31 O GO TO 1 

AVTEMP IS ACCUMUl A TED AVG TEMP FOR FIRST 31 DAYS 

AVTEMP- ( C JJ-i >*AVTEMP+TAVG V JJ 

RETURN 

IFCAVTEMP.LE.27. )GQ TO 2 
ISQ=1 

ISTS0R=I +<AVTEMP~27.)*3, 

IN0D=6. +1.3 
NO NOD- I NOD 
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PROGRAM LISTING— Continued 

GO TO 3 

2 1ST SQR= I 
ISCN1 

I H0Ii=7 
NGHGD= I NOD 

3 I F < I . GE . I STSQR > GO TO 4 
RETURN 

4 IF<I.GT.ISTSQR)GO TO 5 
MV EG -30 

NBRV=4 .5-0. 0000£895*PQPPLT+1 

FRLST=0 

FRLST V= 0 

IFCHBRV.LT. 1 > NBRV-1 
TV=I+2. 5 
NV= 1 

TBRV<l)*I+6. 0 
DSVC 1 ;■ =.JJ 
HO 6 L— 1 .< I HOD 
IF (LAST. EG. 1 1 GO TO 6 
FR<L. D --4 
FACE (I...- 1 >“i 
6 CON n HUE 

TMA-IH-I +2.5 
T<IHOD>=I +6.0 
DSQ<INOD)=JJ 
NONOD= I HOD 
H0BR1=2 

IF<L.AST.EGl. 1) GO TO 5 
FR-aNOD, 2>=1 
FRV< 1.- 1 > "4 

I F < NEWD AY . EQ . 0 > GO TO ? 

COTXX'-O. 

GRCOTX* 0 . 

HUMGRH=0 
NUMOPH=0 
BLOOM* 0, 

eriL I HO = C PQBOI . I.H RQBOL.H) /PQBOL X 

IFCNFL.EQ. t)G0 TO 901, .. , 

IF (BOLING . L.E. . y5)XTfiE.S=l 


0 TQ 

901 


-LE. 

. 85) 

xtre: 

.LE. 

. 6 > ) "• 

IRES 

.LE. 

. 3 5> 

XTRE: 

. LE, 

. 2 > ;■( 

:tres ; 


I F < BOL I NC . L.E. .6 > X T RES=2 

I F < BOL I NC . LE . . 35>XTRES=3 

IF < BOL I NC . L E ■ . i i > «TREy=4 

il CONTINUE 

I F < NEWDAY . EQ . 0 > GO TO 63 U 
DO 610 L-l ' HOHOIi 
no 610 M= 1 > HOBR 1 
I F < F R L.. M > . EQ . 0 j GO T O 610 
FAGE<L,M>«FAGE<L<M>+1 _ 

I F < FR < L.. M ) . HE . 1 ) GO TO S 
IF<FAGE<L< f'D.NE. 28) GO TO 8 
IF (LAST. EQ. 1 .'GO Tu « 

PQFLR=PGFLR+PCOT < I .. 7) 

I F ( F'OLVNA . EQ . 1 ) GO TO 9 
FR<L< M>=4 
BLOOM=BLOOM+ 1 . 

GO TO 8 

9 FR<L.M)=2 

8 CONTINUE 

IF(FR<L> M). HE. 2) GU 1U 12 
IF<FAGE<L< M). HE. 76.) GU TO 10 
IF (LAST. EQ. l)GO TO 10 
FR(L.< 11) =3 

10 IF( T |.LEQ. JJK. AND. LAST. EQ. I . AND. FR<L> M) . EQ. 2. AMD. FACE (L< M).LT.28> 

1FAGE<L< 11) =28 
NAGE=FAGE.(Lj M ~ 28 
IF<NAGE.LT. l)GO 10 610. 

IF (MAGE. GT. 60 )HAGL r -6ll 
IF<FR(L< M).NE.2> GO TO 12 

LtTBnf’'L <[^{]>=WTBOLL<L< M ) +PBOLL ( NAGE )*80l. I NC 
GRCOf X=GRCOTX+WT BOLL <L, M > 

GO TO 610 r . _ 4 . 

12 I F ( FR ( L< M ) . HE . 3 > GO Tu 610 
N U MO P H = H U f 1 0 P N + 1 
rnTXX=COm+WTBOLl .<L< M> 

610 CONTINUE 
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PROGRAM LISTING— Continued 


128 

129 

130 

131 

132 

133 

134 

135 

1 36 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 
15? 

158 

159 

160 
161 
162 

163 

164 

165 

166 
16? 
168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

184 
ICS 
i cti 

187 

188 
188 

130 

131 

132 

133 

134 

135 

196 

197 

198 

199 

200 
201 
202 

203 

204 


DO 710 LV=3, NVEG 
DO 710 MV=1, HBRV 
IFCFRVCLV, MV) . EG 1 . 0) GO TO 710 
FAG V CLVj MV )-FAGV CLV.< MV)+1 ’ 
IFCFRVCLV, MV>.NE.1> GO TO 78 
IFCFAGVCLV, MV) . HE. 28) GO TO 78 
IFCLAST.EQ. l)GO TO 78 
IFCPGLVHA.EQ. 1) GO TO 79 
PQFLR-PQFLR+F'COT (I.. 7) 

FRVCLV, MV) =4 
BLOOM=BLOOM+l , 

GO TO 78 

79 FRVCLV, MV>=2 

78 CONTINUE 

IF<FRV<LV< MV) . NE.2) GO TO 82 
I F < FAG V < LV, MV > . HE . 76 ) GO TO 80 
IFCLAST. EQ. 1 )GO TO 80 
FRVCLV, MV) =3 

80 CONTINUE 


IF< JJ. EQ. -UK. AND. LAST. EQ. 1 . AND. FRVCLV, MV> . EQ. 2. AND. FAGVCLV, MV) .LT. 
28>FHuVcLV,MV)=28 


17 


NAGE=FAGVCLV, MV>~ 28 
IF<HAGE.LT. 1) GO TO 710 
I F C MAG E . GT . 6 0 ) H AGE=6 0 

IFCFRVCLV, MV > . HE . 2 > GO TO 82 
NUMGRH=NUMGRN+ 1 

WTBOLV < LV, MV> -WTBOLV C LV, MV ) +PBO LL < HACK >*BQI. I NO 
GRCOT-X=GRC OTX+ WTBOLV < L V, MV ) 

GO TO 710 

82 IFCFRVCLV, MV) . HE, 3> GO TO 710 
NUMOPN=MUMOPH+ 1 
COTXX=COTXX+UTBOLV<LV, MV) 

710 CONTINUE 
630 CONTINUE 

IFC JJ. EQ. JJK. AND. LAST. EQ. 1 > I=TMAIN 

IFO.LT.TMAIN)GO TO 14 

THAIN=TMAIN+2.5 

NONGD-NONOD+i 

T<NONGD)=I +6.0 

DSQC NONOD >=..IJ ' 

IFCLAST.EQ. l)GO TO 14 
FRCNONOD, 1 >~4 
FRCHOHOD, 2)=1 
BURNING PINHEAD SQUARES 
IFCCLIMATCJJ, D.GE.700. ) FRCNONOD, 2)=4 
FAGECNOHOL 1)=1 

14 CONTINUE 

DO 15 L=INOD, NONOD 

T AVLCL)=CTAVL CL) *C JJ-BSQCl.) HTAVGVCJ- I-DSQC L> + 1 ) 
IF(I.LT.TCL))GO TO 15 
I F C NTL C L ) , EQ , 1 ) GO TO 20 
TCL)=T CL) + 0. 333*C 30. -TAVL CL) > 

NTL(L)=1 

20 IFCI.LT.TCL)>GG TO 15 
NTL CL) =0 

TAVI. Cl.) !j. 

DSQfl.) - JJ 
It HOD*- 0 

UO J 6 M-bNi’BN 

i r- < i cm on. or. o>gu m i 

IFCFRCL, M).Gf. 0) GO TO 16 
I CHOD= 1 
T CL) "I +6. 0 

IFCLAST.EQ. I )GO TO 17 
FRCL, M>=1 

BURNING PINHEAD SQUARES 
IFCCLIMATCJJ, D.GE.700. )FR<L> M)=4 
FACE CL, M)=l 
CONTINUE 

IFCL..NE. I NOD) GO TO 16 
NOBR 1 ~NOBR I + 1 
16 CONTINUE 

15 CONTINUE 

IFCNV. GE. HVEG) GO TO 30. 

IFC JJ. EQ. JJK. AND. LAST. EQ. 1 ) I~TV 
IFO.LT.TV> GO TO 90 
I V-TV+2. 5 
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PROGRAM LISTING— Continued 


205 


NV=NV+ 1 

206 


IFCLAST.EQ. l)GO fO 900 

20? 


FRVCNV, 1>=4 

2 OS 

9 0 0 

CONT I HUE 

2 OS 


I F <MV. LT, 3) GO TO 802 

210 


IFCLAST.EQ. DGO TO 90 

211 


FRVCNV. 2 > = 1 

212 

c 

BURNING PINHEAD SQUARES 

21S 


I F C CL I MAT < J J, 1 > . GE»7 0 0 . > FRV ( W, 2 > -4 

214 


TGRV<N V)=I+6p 0 

215 

800 

FAGVCNV. 1)-1 

216 

90 

CONTINUE 

21? 


I FCNV. LT. 3>G0 TO 802 

218 


no 95 LV=3, MV 

219 


TMPV C L V > « C TMPVC LV > * C J J-DSV C LV > > +TAVG >/< J J-DSVC LVU 

220 


IFCI .LT.TBRVCLV)) GO TO 95 

221 


I FCNTL VCLV >. EQ. 1> GO TO 97 

222 


HTLVCLV>-1 

223 


TBRV<LV>=TBRV<LV)+0. 333*C30. -TMPVCLV)) 

224 

97 

IFCI. LT.TBRVCLV;-) GO TO 95 

225 


TBR V < L V > »TBRV < L V > +6 . 0 

226 


NTLVCLV>*0 

22? 


TMPVCLV>--0. 

2 28 


DSVCLV)~JJ 

229 


I VHOD- 0 

230 


DO 96 MV~1.< HBRV 

231 


IFCIVNGD.GT. 0) GO Tu 96 

232 


IFCFRVCLV., MV>.GT. 0) GO TO 96 



■IVNOD=l 

234 


IF CLAST. EG. 1 >GO TO 95 

235 


FRV C LVj. MV)*1 

236 

C 

BURNING PI HUE AH SQUARES 

23? 


I F C CL I MAT C J-X 1 ) * CiE . 6 0 0 . > FRVCLV/ MV > =4 

238 


FAGv'CLV.. MV)=1 

239 

96 

CONTINUE 

240 

95 

CONTINUE 

241 

802 

CONTINUE 

242 


SQLQST = 0 . 

243 


BOLI .ST=0. 

244 


XYN---HSTRES. 

245 


TMAIN«TMAIN+1.33+XYN^4, 

246 


TV-TV-H. 33+XYN/'3. 

24? 


IFCI. AST. EQ. OGO TO 1000 

248 


DO 1 002 L= I NOD. NONOD 

249 


DO 1 002 M= 1 j* NOBR 

250 


IFCFRCL. M>. EG. 5. AND. JKCLj M>.EQ. JJ)GO TO 1001 

251 


I F C FR CL. M > . EQ . 6 ■ AND ■ JK C L, M> . EO . J J )GO TO 1 0 03 

252 


GO TO 1002 

253 

1001 

FRCL, M>~4 

254 


SQLOST -SQLQST + 1 

255 


GO TO 1002 

256 

1003 

FR<L,M>4 

25? 


BOLLST -BOLLST + 1 

258 


GRCOTX=*GRCOTX-UT BOLL < L. M > 

259 


GBLOS»GBLOS+WTBOI LCL. M) 

260 


WTBOLLCL. M > L * 0 . 

261 

1002 

CONT INUE 

262 

1000 

CONTINUE 

263 


IF CLAST. EQ. 1 >GO TO 2000 

264 


DO 2002 MV“ 1 • HBRV 

265 


DO 2 002 L V s I.. HVEG 

266 


IFCFRVCLV, MV > . EQ . 5 . AND . JKV < LV. MVJ.Efl. JJJGO TO 2001 

26? 


IFCFRVCLV, MVJ.EQ.6.AHD. JKVCLV, MV).EQ. JJ)GO TO 2003 

268 


GO TO 2002 

269 

2001 

FRV CL. V. MV) «4 

2?G 


SOLOS T -SQLQST + 1 

2? I 


GO TO 2002 

2?2 

2003 

FRVCLV, MV) =4 

273 


BOLLST “BOLLS T+l 

2?4 


GRCOTXsGRCOTX-UTBOLV < LV. MV > 

275 


GBLOS-GBL QS+WTBOLVCLV, MV ) 

276 


LITBOLVCLV, MV)*0. 

2? 7 

20 02 

CONTINUE 

278 

WOO 

CONTINUE 

C. 1 ~ 


IFCXTRES.I.E. 0. .AND. METRES. EQ. 0)GO TO 125 

280 


DO 114 L* I NOD, NONOD 

28 j 


TCL)«T<L)+1.33*XVN/4. 



PROGRAM LISTING-Continued 


282 


IF<XTRES.EQ.4)T<L)«TCL>+1.50 



I F ( XT RE3 . EQ . 3 > T < L ) =T < L ) + 1 . 2 0 

284 


I F < XTRES . EQ - 2 > T C L > =T < L ) + 0 . 6 0 

28 5 


I F (XTRES. EQ. 1 >T< L)=T(L) + 0. 20 

28 G 


I F (LAST, EQ. 1 >GO I'D 1140 

2'“* 7 


DO 114 M-l, NOBR 

288 


I F < FR < L, M) .. NE ■ 1 > GO TO 119 

289 


1F<XTRES.EQ, 0>GO TO 119 

2911 


GO TO c: 1 09, 1 1 0, 111, 112), XT RES 

29 i 

1 09 

IF (FACE < L, M>.GE. 12. . AND. FAGECL, M).LE. 12- >GO TO 113 

292 


GO TO 114 

293 

110 

IFCFAGE ( L, M> . GE - 12.. AND. PAGE CL, M l . L. E . 12- ) GO TO 1 13 

294 


GO TU 114 

295 

111 

IFCFAGECL, M).CE.9. 0, AND .F AGE CL, M) .LE. 12. >GO TO 113 

296 


GO TO 114 

29? 

112 

IFCFAGECL, M> . GE . 8 . 0. AND. FACE CL, M).LE. 13. >GO TO 113 

298 


GO TO 114 

299 

113 

CONTINUE 

300 


FRCL, M> -5 

301 


JK(L, M>=JJ+S 

302 


GO TO 114 

303 

119 

CONTINUE, ... 

304 


I F ( Mb f R t y . EQ . U)GU f 0 114 

305 


GO TO < 1 14, 116, 1 17, 1 1 8 > , NSTRES 

306 

118 

I F (FR CL, M > . EQ . 2 . AND . FACE CL, M ) . LE . 38 >GO TO 1 2 0 

30? 


IFCFRCL, M>. EQ. 1 .AND. FACE CL, M).LE.6>GO TO 1 14 

308 

11? 

IF (F R CL, M > . EQ . 2 . AND . PAGE CL, M>.LE.33)G0 TO 120 

309 

116 

IFCFRCL, M).EQ.l. AND. FAGEC6, M> . LE, 3>GO TO 114 

310 


GO TO 114 

311 

120 

CONTINUE 

312 


FRCL, M>~6 

313 


JK<L, M)®JJ+8 

314 

114 

CONTINUE 

315 

1140 

CONTINUE 

316 


DO 214 LV-1, NVEG 

31? 


TBRVCLV >=TBRVCLV)+1 - 33*XYN^3. 

318 


I F CURES . EQ . 4 > TBRV <LV > =T BR V < LV > + 1.50 

319 


r F < XTRES . EQ . 3 > T BR V CL V > ® T BR V < L V > + 1 . 2 0 

320 


IF (XTRES. EQ. 2>T BR V C L V > =T BR V C L V > + 0.60 

321 


I F CURES . EQ . 10 TBRVCL V >®TBR V C LV > + 0.20 

322 


IF CLAST. EQ, 1 :■ GO TO 2140 

383 


DO 214 MV~1 , NBRV 

324 


rFCFRV<LV,MV> ? NE. l)GO TO 219 

325 


I F C X J RES . EG* . u JUO TO 8 1 9 

386 


GO TO <209,210, 211, 21 2>, XTRES 

32? 

209 

IFCFAGVCLV, MV).GE. 12. . AND. FAGVCLV, MV) . LE. 12- >GO TO 

328 


GO TO 214 

329 

210 

IFCFAGVCLV, MV) . GE. 12. . ANIL FAGVCLV, MV> . LE. 12. >GG TO 

330 


GO TO 214 

331 

21 i 

IFCFAGVCLV, MV) .GE. 9. 0. AND, FAGVCLV, MV) . LE. 12. >GO TO 

332 


GO TO 214 

333 

212 

IFCFAGVCLV, MV) -GE. 8. 0. AND. FAGVCLV, MV) . LE. 13. )G0 TO 

334 


GO TO 214 

335 

213 

CONTINUE 

336 


FRVCLV, MV) =5 

JKVCLV, HV>=JJ+8 

33? 


338 


GO TO 214 

339 

219 

CONTINUE 

340 


I F < N ST RES . EG . 0 > GO TO 214 

341 


GO TO <214, 216, 217, 2J8>, NSTRES 

IF (FRVCLV, MV >.EQ- 2. AND. FAGVCLV, MV) . LE. 38)G0 TO 220 

342 

218 

343 

I F < FRV C L Vi MV > . EC*. 1 . AND . F AG V C LV, MV > . LE . 6 ) GO TO 2 1 4 

344 


GO TO 214 

345 

217 

IFCFRVCLV, MV >. EM. 2. AND. FAGVCLV, MV). LE.33)G0 TO 220 

346 

2ib 

IFCFRVCLV, MV) . EQ. 1 . AND, FAGVCLV, MV>. LE. 3>GQ TO 214 

347 


GO TO 214 

343 

220 

CONTINUE 

349 


FRVCL V, MV)® 6 

350 


JKVCLV, MV>® JJ+8 

35) 

214 

COHriHUE 

352 

2140 

CONTINUE 

353 


l F (XTRES. EQ. 0)GO TO 126 

A 


GO TO <130, 131, 132, 133), XTRES 


133 

TNAIN=TMAIN+1 . 0 

TV-TV+i . 0 

GO TO 126 



tmatu«tmain +> 7 
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35 ^ 

TV=TV+ . 7 

360 

ijfi IQ 1 26 

361 

1 31 fMAIM-TMAIN+.4 

36.5 

TV=T'v'+ « 4 

363 

GO TO 126 

364 

.130 TMAIN-THAIN+O. 0 

365 

TV-TV+0. 0 

366 

126 CONTINUE 

367 

125 CONTINUE 

368 

IFCJJ. LE. 71 )GO TO 2141 „ 

36 v 

L.EFUT =LEFWT~1..EAFWT < J J-7 0 ) 

370 

U1LOST < 3 > =LEHF WT T J J-7 0 > 

371 

2141 CONTINUE 

3?:? 

RETURN 

373 

END 


61 



PROGRAM LISTING— Continued 


MATA, L COT DA. 

DATAO 06-RL 1669 0 1 1 6- 1 6 1 DS i 2 0 

000001 DATA FOR SIMCOT 1 1. THE DATA CONSISTS OK SIX SECTIONS, FOUR OF WHICH ARE 

000002 REQUIRED BY THE PROGRAM FOR PROPER OPERATION. THE OTHER TWO SECTIONS 

000003 MUST BE SUPPLIED BY THE USER TO SIMULATE HIS CROP AT HIS LOCATION. THE 

000004 FOLLOWING DATA ARE AH EXAMPLE WHICH THE USER CAN USE TO CONSTRUCT HIS 

000005 OWN DATA FILE. 

00000? PROGRAM SUPPLIED DATA. 

000008 123456769012345676901234557890123456789012345678901234567690123456789012345 

USED 3 


000009 

C PORTS 

K PQSTM 

] [ PQLEF 

] CPGFLR 

KNOT 1 

00001 0 

. 020 

.20 

.20 

.DO 

.10 

000011 

. 020 

.20 

.20 

,00 

.05 

000012 

. 020 

.20 

.20 

. 00 

.20 

000013 

. 020 

.20 

.20 

. 00 

,30 

000014 

. 020 

.20 

.20 

. 00 

.40 

000015 

.020 

.20 

.20 

.00 

.48 

000016 

. 020 

. 20 

.20 

4 0 0 

.56 

000017 

.020 

.20 

.20 

4 on 

. 64 

000018 

. 020 

.20 

.20 

. 0 0 

. 72 

000019 

. 020 

. 20 

.20 

.00 

.80 

000020 

. 030 

.30 

.30 

,00 

,92 

000021 

. 030 

.30 

. 30 

. 00 

1. 04 

000022 

, 030 

.30 

.30 

. 00 

1. 16 

000023 

. 030 

.30 

.30 

. 00 

1.28 

000024 

. 030 

.30 

.30 

. 00 

1.40 

000025 

. 050 

. 50 

r 32 

. 00 

1.56 

000026 

. 050 

.50 

, 3Z 

. 0 0 

1 , 72 

000027 

, 050 

.5i> 

.32 

. 00 

1 . 88 

000028 

.050 

. 50 

.32 

.00 

2. 04 

000029 

. 050 

.50 

» 32 

. 00 

2.20 

000030 

.030 

.80 

.48 

.00 

2.46 

000031 

. 080 

,80 

.48 

. 00 

2. 72 

000032 

.060 

• 80 

.48 

.00 

2. 98 

000033 

.080 

.80 

.48 

. 00 

3.24 

000034 

. 080 

.80 

.48 

. 00 

3.50 

000035 

.060 

.60 

.40 

. 00 

3. 70 

000036 

. 060 

.60 

.40 

. 00 

■3,90 

000037 

. 060 

4 66 

.40 

. 00 

4.10 

000038 

. 06 0 

,60 

.40 

i 00 

4,30 

000039 

. 060 

, 6 0 

.40 

, 00 

4.50 

000040 

, 080 

.80 

.60 

. 00 

4.76 

000041 

. 080 

.80 

.60 

. 00 

5.02 

000042 

.080 

.80 

.60 

. 00 

5.28 

000043 

.080 

.80 

. 60 

. DO 

5.54 

000044 

. 080 

. 80 

.60 

. LI U 

5.80 

000045 

.080 

.80 

.60 

. 00 

5,80 

000046 

.030 

* 8 0 

.60 

. 00 

5,80 

00004? 

. 080 

. 80 

, 60 

. 00 

5,80 

000048 

.080 

. 80 

. 60 

. 00 

5.8 0 

000049 

.080 

.80 

.60 

. 00 

5.80 

000050 

.080 

.80 

• 60 

.50 

5,80 


000051 

1300052 


00005? 
000058 
000058 
000060 
000 06 i 
000062 
000063 
000064 
000065 
000066 
00006? 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
00 007? 
000073 
000079 




PROGRAM SUPPLIED DATA .THE FOLLOWING IS 


PBOLL 


D00053 

. 040 

. 040 , 050 

.060 .070 ,100 

.225 

. 225 

.225 , 225 

, 225 

.225 .225 

, 225 .225 

.225 

000054 

.225 

► 225 .225 

. 225 .225 .225 

r 225 

.225 

.225 ,225 

.215 

.20 0 .195 

.190 .175 

, 160 

OOOQ55 

000056 

. 150 
.015 

.130 .120 
.010 .009 

.110 ,100 , 095 
.00? . 005 .004 

. 080 
, 002 

. 075 

. 001 

. 070 . 060 

. 050 

; 040 . 035 

, 030 .027 

. 020 


^^+^4^;H'4'-4:+:4::4w^4::f-f^:4:4-*:4:4^4 4^:f + H-4:4 4<r+:4Lt^f^FH'4::4!+^:4:4F^^H: : 4;4:+:^:t:H:4::f.^^^*++^^+:4M4t:+{>P++*4:4:+ 

USER Pi IfcD DAT A . SUPi T y HILL, 

WEATHER FOR COPIAH COUNTY/ MISS. , 1972 
SUPPLY HUNGER OF DAYS OF WEATHER DATA IN DATA. 

187 

*** **:+ 4 :: 4 :s 4s :4 ++* b‘\ =4 * if: ; f f + +H- 1 + + ■4'+ 4 4 4+ 4 4: 4 =4: 1 A 4 +: r }: , \ } >:>f :f : Jr f :f . : |; * f >fc if fifcii; f*:;f :f.f: +N ::f :f 

SUPPLY WEATHER DATA FOR GROWING SEASON. 


SOLAR H 

TMAX H 

THIN H 

RFALL K 

EVAP K 

DAY HO 3 

138.00 

80. i)0 

54. 00 


. 06 

119. 00 

468. 00 

80. 00 

54.0 Ci 


.01 

120, 00 

443. 00 

80. 0 0 

54 , 0 0 


, 15 

121,00 

405, 00 

86. 00 

57. 00 


.20 

128, 00 

208., 00 

78. 00 

60. 00 

1.53 

.20 

123. 00 

608, 00 

79. 00 

59. 00 

69 

. 06 

124. 00 

698, 00 

77.00 

4 f , 0 U 


,25 

125. 00 

589. 00 

80.0 0 

52. 00 


.22 

126, 00 

484.00 

81.00 

50 r 00 


. 19 

127. 00 

584 . 00 

76, 00 

64. 00 

. 10 

. 18 

128. 00 

584. 00 

81. 00 

65. 00 

,58 

, 04 

129. 00 

658. 00 

76. 00 

60. 00 


.15 

130.00 

631. 00 

74. 00 

53. 00 


B cl. 2 

131, 00 

446, 00 

70. 00 

66. 00 


.22 

132. 00 


CO 2 


3 
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000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
0001 00 
oooioi 
000102 
000103 
000104 
000105 
0001 06 
0001 07 
000108 
000109 
00011 0 
000111 
1)001 J 2 
000113 
0001 M 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
00012 ? 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 


12. OO 
58 . 00 
63 . 00 
98. 00 
47. 00 

47. 00 

56 . 00 
61. OCl 
45. OO 

57. 00 
4 1 . 00 

48. 00 
. 00 


53. 00 
56 . 00 
36. 00 
36. 00 
35. 00 
32. 00 
38. 00 

06. 00 

07. 00 
00. 00 
35. 00 
30. 00 

13 . 00 
15. 00 
32. 00 
96. 00 
93. 00 
15, OO 
23. 00 
10. 00 

01. 00 
96* 00 
52. 00 

56. Ou 
48. 00 
52. 00 

57. 00 
48. 00 
26. 00 
01 . 00 
45. 00 

41. 00 
84. 00 

07. 00 

54. 00 
15. 00 
70. OO 
02. 00 
35. 00 
60. 00 
78, 00 
59. 00 
69. OO 
92. 00 

08. 00 
i 1 , OO 

51.00 

14. OO 
.30. 00 
168. 00 
133. 00 
■Cl. 00 
198. 00 
99, 00 


69 . 

00 

81 . 

00 

SO . 

00 

79 . 

00 

86 . 

00 

82 . 

00 

77 . 

OCl 

78 . 

00 

97 . 

00 

87 . 

00 

91 . 

00 

90 . 

00 

9 0 . 

00 

98 » 

00 

9 G . 

0 0 

88 . 

00 

89 . 

00 

90 . 

00 

89 . 

00 

81 . 

00 

86 . 

00 

79 . 

00 

90 . 

00 

89 . 

00 

91 . 

00 

91 , 

00 

97 , 

00 

94 , 

00 

93 . 

00 

92 . 

00 

90 . 

00 

90 . 

00 

92 , 

00 

91 , 

00 

92 , 

00 

89 . 

00 

90 . 

OO 

91 . 

00 

89 . 

00 

95 , 

00 

91 . 

00 

92 . 

00 

90 . 

00 

92 . 

00 

89 . 

00 

93 . 

OO 

94 , 

00 

93 1 

, 00 

90 . 

, 00 

94 . 

, 00 

92 . 

, OO 

93 . 

, 00 

93 . 

, 00 

89 . 

.00 

77 . 

. 00 

81 . 

.00 

85 , 

.00 

86 , 

. 00 

89 , 

. 00 

88 « 

.00 

91 , 

, 00 

92 , 

.00 

85 , 

. 00 

89 

.00 

90 

, OO 

93 

. 00 

88 

. DO 

90 

. 00 

92 

.00 

89 

.00 

91 

.00 

94 

.00 

95 

.00 

94 

,00 

95 

.00 

93 

.00 

93 

. 00 

92 

.00 

85 

.00 

84 

. 00 

89 

*00 


64.00 

60.00 
60. 00 

56.00 

54.00 

60.00 

55. OO 

58.00 

56.00 

56.00 

61. 00 
65. 00 
73. 00 

61.00 

59. 00 
62. 00 

60. 00 

61 , 00 

59. 00 

57. 00 
50. 00 
46. 00 

54. 00 

55. 00 

54.00 

60. OO 
65. OO 
65. 00 

62.00 
69, 00 

65. 00 

68, 00 

68 . 00 

69. no 

66.00 

70.00 

70, 00 

71. 00 
69. 00 

65.00 

68. 0U 

61. 00 
62. 00 

71. 00 
68 , 00 

72.0 0 

73.00 

75.00 

70.00 
68 . 00 

68.00 
73. 00 

69. 00 
67, 00 

67.00 

59.00 

57.00 

55.00 
59. 00 

65.00 
63, 00 

66 , 00 
63. 00 

67. 00 

65.00 

70 . 00 

68, 00 

67. 00 
96. 00 

68, Ou 
68 * 00 
66 , 00 

70.00 
68. OO 
72- 00 

71.00 
73. 00 
73. 00 
70. OO 

69.00 

69.00 


. 06 

. 19 

133 . 0.0 

.80 

. 09 

134.00 


. 19 

135.00 

. 02 

.28 

136.00 


.28 

137.00 


.27 

138.00 


.21 

139.00 


• 26 

140, 00 


.33 

141.00 


.28 

142 . go 


,29 

143.00 


.25 

144.00 


.30 

145.00 


. 2 ? 

146. 00 


.33 

147.00 


.25 

148. 00 


.29 

149. 00 


.24 

150.00 


. 16 

151,00 


.32 

152,00 


.25 

153. 00 


.24 

154.00 


.28 

155.00 


.26 

156. 00 


.28 

157. 00 


.28 

158.00 


.26 

159.00 


.32 

160. 00 


.23 

161.00 


.20 

162.00 


.23 

163.00 

. 04 

.22 

164.00 


.27 

165. 00 

. 05 

. 17 

16 b . 00 

, 13 

.11 

167.00 

.24 

.11 

168 . OO 

. 07 

. 09 

169.00 


.23 

170 . 01 ) 


.28 

171.00 


.33 

172.00 

.34 

* 36 

173.00 


.20 

174.00 

.23 

. 17 

175.00 


. 10 

176 . U 0 


.22 

177.00 

.91 

.12 

178.00 


. 26 

179.00 


.36 

180.00 


.29 

181.00 

1.53 

.08 

182. 00 

. 19 

.21 

183. 00 


.26 

184.00 

. 11 

.28 

185.00 

.26 

. 19 

186. 00 

. 15 

.11 

187. 00 


.25 

188. 00 


.25 

189.00 


.23 

190.00 


.18 

191.00 


. 19 

192,00 


.22 

193.00 


.27 

194.00 

.61 

.27 

195.00 

.58 

.27 

196.00 


.24 

197.00 


,20 

198.00 

.83 

.28 

199. 00 

.45 

,20 

200. 00 


.24 

201.00 

.35 

.28 

202.00 

. 02 

.27 

203.00 


. 19 

204.00 


.25 

205. 00 

. 02 

.22 

206.00 


.27 

207 . 00 


.27 

208.00 

.50 

' .29 

209.00 

. 05 

.28 

210.00 


.30 

211,00 

1.74 

.12 

212, 00 

*68 

. 15 

213.00 
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rjooibi 

609. 00 

90, 00 

66. OO 


. 05 

214. 00 

000162 

492. 00 

91, OO 

68. OCf 


. 22 

215. 00 

000163 

610. 00 

93. OO 

68. OO 


. 25 

216, 00 

000164 

623. 00 

93. 00 

70. OO 


. 26 

217. OO 

000165 

626. 00 

92. 00 

70, O0 


. 2? 

218. OO 

000166 

646. 00 

92. 00 

69. OO 


. 25 

219. OO 

000167 

635. 00 

95. 00 

74. OO 


. 34 

220. 00 

000168 

589. 00 

92. OO 

74, 00 


. 33 

221 . 00 

000169 

556. 00 

95. 00 

73. OO 


.27 

222. OO 

000170 

461. 00 

93. 00 

68, OO 


.30 

223, OO 

000171 

44 1 , 00 

96. 00 

67. 00 


. 19 

224. 00 

000172 

370. 00 

94. 00 

66. OO 


. 23 

225. OO 

000173 

356. 00 

91,00 

68. OO 

,09 

. 18 

226. 00 

000174 

532.00 

93. OO 

AS, 00 


, 15 

227. 00 

000175 

55C.OO 

89. 00 

68. OO 

.25 

.24 

228. OO 

000176 

480. DO 

92. 00 

67. OO 


.2? 

229. 00 

000177 

521. 00 

93. 00 

68. OO 


.24 

230. 00 

000178 

504. go 

92. OO 

68. OO 


*£iCJ 

231.00 

000179 

566. OO 

96. 00 

69. 00 


! 24 

232. 00 

0001.80 

498. 00 

98. 00 

70, 00 


.24 

233. 00 

000181 

412. 00 

99. 00 

73. 0O 


. 29 

234.00 

000182 

439. 00 

97.00 

77. 00 


,28 

235. 00 

000183 

509. CO 

95.0 0 

68. OU 


. 33 

236. OO 

000184 

259, OO 

96. 00 

68. OO 


.21 

237. OO 

OO0185 

402. OO 

94 , 0 0 

68. OO 

.41 

. 22 

238, OO 

000186 

319.00 

94. 00 

69.00 

,05 

. 13 

239, OO 

000187 

586. OO 

93. 00 

68. 00 


. 16 

240. OO 

000188 

584, OO 

89. 00 

61.00 


.27 

241 - 0U 

000189 

551.00 

91. on 

62. OO 


.25 

242. 00 

000190 

520. OO 

92. 00 

61.00 



243. OO 

000191 

460. 00 

95. 00 

63. OO 


.23 

244. OO 

000192 

385. OO 

92.0 0 

69. OO 


. 19 

245. 00 

000193 

478. 00 

95. 0 0 

67, OO 

. 03 

. 19 

246. 00 

000194 

435. 00 

96 . 0 0 

65.00 


. 18 

247. OO 

000195 

270. OO 

96. 00 

6 r' • 0 O 


.24 

248, 00 

000196 

262. OO 

90.OO 

70, OO 


. 13 

249. 00 

000197 

514. OO 

93. OO 

63.00 


. 12 

250. 00 

000198 

472. OO 

96. 00 

73. 0O 


. 19 

251. 0 0 

000199 

522. OO 

98. 00 

72. 0O 


. 22 

252. OO 

00020.0 

495. 00 

95. 00 

73.0O 


.24 

253. U0 

000201 

539. 00 

- 95. 00 

68. OO 


.30 

254. 00 

000202 

401. 00 

9 1 . 0 0 

69. OO 


. 21 

255. OO 

000203 

485. 00 

96. 00 

72. OO 


. 15 

256. OO 

0002 04 

514. 00 

96. 00 

61, 00 


.20 

257. OO 

000205 

530.00 

97. OO 

65.00 


. 3 0 

258. 00 

000206 

503. 00 

99. 00 

64 . O O 


. 26 

259. 00 

000207 

286. 00 

94. 00 

67.00 


.24 

260. 00 

000208 

365. 00 

96. 00 

66. OO 

1.43 

. 12 

261 . 00 

000209 

518. 00 

96, 00 

69.00 

..02 

. 15 

262. 00 

000210 

483. OO 

94. 0 0 

7O.0O 


. 23 

263. 00 

000211 

478. 00 

95.00 

67.GU 

.44 

I 21 

264. 00 

000212 

399.00 

91.00 

66. 00 


.20 

265, OO 

000213 

200. OO 

90. 0 0 

68. OO 

1.31 

. 16 

266. 00 

000214 

355. 00 

91 . 0 0 

68. OO 

.62 

. 05 

267. 00 

000215 

238. 00 

90, OO 

66. OO 


. 13 

268. 00 

000216 

162. 00 

88, OO 

72.0O 


. 13 

269. 00 

000217 

361. 00 

87. 00 

67.00 


. 08 

270. OO 

000218 

343. OO 

88, 00 

70. 00 

• 45 

. 17 

271 . 00 

000219 

365. 00 

89. 00 

70. OO 

.29 

. 18 

272. OO 

000220 

387. OO 

87, 0 0 

69 . 0 O 

1.22 

. 12 

273. OO 

000221 

544. 00 

78. 00 

57. GO 


. 34 

274, OO 

000222 

528. 00 

72. 0 0 

41 . OO 


. 19 

275. OO 

000223 

518. 00 

78.00 

43.00 


. 15 

27 A, OO 

00022** 

458. 00 ■ 

78. 00 

54.O0 


. 17 

277. OO 

000225 

409. 00 

88, OO 

65. OO 

. 02 

. 14 

278. OO 

000226 

410.00 

87, 00 

65. OO 


. 17 

279, 00 

000227 

355. OO 

85. OO 

58. OO 


. 17 

280. OD 

000228 

391. 00 

76. OO 

64. 00 


. 17 

281 . 00 

000229 

385. 00 

78, OO 

52. 00 


. 09 

282. OO 

000230 

395. OO 

81. OO 

52. OO 


. 12 

283 . OO 

000231 

400. 00 

87. OO 

51. OO 


. 12 

284. 00 

000232 

000233 

432. OO 

86. 00 

55.00 


. 17 

285. 00 

409. 00 

86. OO 

55. OO 


. 14 

286 . 00 

000234 

361. 00 

89. OO 

58. OO 


♦ 14 

287. OO 

000235 

•416. OO 

90, OO 

59. 00 


. 14 

288. 00 

000236 

339. 00 

81.00 

66. OO 


. 17 

289. 00 

000237 

402. OO 

86.00 

53. OO 


. 15 

290. 00 

000238 

393. OO 

90,00 

67.O0 


. 15 

291, OO 

000239 

351.00 

89. OO 

67.0 0 


. 16 

292. 00 

000240 

104.00 

73, OO 

50.00 

. 13 

.26 

293,00 

000241 

376* 00 

70. OO 

37.00 

.03 

. 05 

294. 00 
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PROGRAM LISTING— Continued 


0 U U i-~ 4 
000244 
000245 
000246 
00024? 
000243 
000249 
000250 
00 0251 
00 U252 
ij 0 025? 
000254 
00 0255 
000256 
00025? 
00 0258 
00 0259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000230 
000231 
000232 
0 ij 0283 
000234 
000235 
000236 
000287 
0 0 0288 
000239 
000290 
000291 
000292 
00 0293 


000294 

000235 


271.00 

75. 00 

51 . 00 


. 03 

295. 00 

43 > 0 0 

78. 00 

61. 0 ij 


. 07 

296 . O 0 

346 . 0 0 

79, 00 

6">. ij ij 

1 “7tr 

1 . f J 

. 11 

297. 00 

141 . 00 

67. 00 

52 . ij 0 

. 02 

. 15 

298, 00 

81. 00 

6 Cl . 0 0 

39. 00 


. 11 

2 99. 00 

34 . 0 0 

57, 00 

38. 00 


. 03 

300. 00 

267. 00 

65. 00 

52. 00 

L. C 

. 07 

301 . 00 

84 . 0 0 

.69. 00 

48. 00 


. 02 

302. 00 

71, 00 

73.00 

52. 00 


. 03 

303. 00 

72 . 0 0 

82. 00 

54, 00 


. 08 

3 04 , 0 Li 

172. 00 

86. 00 

66, 00 


, 00 

3 05 . 0 0 


:f *::f + :+ :►: 4 * * Y * Y +' Y Y Y Y + Y Y YY Y : Y Y Y -Y * -Y Y YY Y *: I '-Y Y -Y =1 + Y YY Y Y Y -Y-Y Y -K ■* : ^ * Y -Y t :n v r n- 1 .V r- r -r 

PROGRAM SUPPLIED DATA. TABLE OF DECLINATION VALUES FOR SUN. 

1 37,45^.789 H 1 23456739 0 1 23456789 Q 1 2345b783 0 1 23456789 0 1 23456739 0 1 234 56789 0 1 23456 789 U 


“2304 

“2054 


1709 

2049 


-2242 
-2 0 05 


71? 

1256 


-1610 
- 1 0 “i 0 

- 443 
130 


1455 

336 


“1411 

-1848 


215 ? 

1857 


231 0 

2^1 1 I 


1811 
M3 Cl 


846 

1413 


" 145 ?; 
•• 923 
-• 304 
304 


-19 09 


1814 

1341 


2310 
M 2 1 


2157 


707 

101 


1450 

1909 


414 

1012 


■ 1 337 
• 753 
- 139 


n: 

-1808 


546 
1 135 


-1719 
-1215 
- 621 
005 


1602 

2002 


>52 


17 

12; 




1 6 fig 
1102 


2228 

1950 


US,.-: 


406 

206 


253 

858 


PROGRAM 


-2216 
SUPPLIED 


- 426 
-1025 

-l c » 2 ? 

-1945 

DATA. TABLE OF WATER STRESS 


-1 150 

-• 1 638 
-2 036 

-2306 

— cl !*1 »' 

v'ALUES. 


-1745 

-2121 


- r^j 
*1312 


-2141 

-2320 


! 2345A789 01 23456789 01 i3456^01234567830123456?89012345t77890123456?8901 234567690 
~ . 5 .0 . ij .0 .0 2.5 .2 .0 .0 . U 5. 0 7* U .5 .0 - U 

6.8 4.0 2.2 1,0 .5 7.7 5.6 4.0 2.7 ,’MJ «-7 7.Z b.W 5,0 4.5 


»:* + .#.** + +: +: :4 : = 4 ■ + + 4»4 +: :+ -+ :f: =f==l +* 



PGM 


EFN 


THE FOLLOWING DATA. Ib.UStD BY 1HE 
PFPIJESTED. JJK-FIRS1 DfiV PRINTED u 
MANUAl UP DAI I MG . JO- 1 NCPEMEHT A DDE 


] C INITI ALN3 [ RES 1 DM 3 
60 20. 0 30 r 0 _ 

IRFD PY FHE PROGRAM 10 VARY THE AHttJHI OF OUTPUT 
- 1 — fil IT. LAST-EQUAL TO ZERO FOR RUN WITHOUT 
API'ib'D TO JJK TO OUTPUT DATA. 


L JUKI CLASTIC JB I 
10 0 1 0 
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EXAMPLE RUNS 


The user of SIMCOT II must employ a data 
file as illustrated in this manual. Two examples 
are given. In both examples all the data are the 
same except for the last line of the data file. 

Cotton Growth Simulation Run 

Data input: SIMCOT II data file, with em- 
phasis on last line as follows: 

JJIC LAST JB - Variables 

12345G78901234567890 <- Column count 
10 0 10 <- The data 

To execute the program, the user must com- 
pile in FORTRAN, map, and execute the abso- 
lute element. The data are added to the run- 
stream after the execute command with proper 
job control language. Given below is the output 
of SIMCOT II with the above data file as input 
to the program. Notice that the plant is listed 


every 10th day; however, this can be changed by 
the user to suit his needs by changing only the 
last data card. 

The normal output in this case prints the plant 
out in graphical form. The following symbols 
indicate plant parts: X, square; *, green boll; 
open boll; 0, abscised site or main-stem node; I, 
fruiting-branch internode; and =, main-stem 
internode. 

Various parameters are also printed out. All 
are self-explanatory except “concentrations" 
and “NPART (1-5),” The concentrations are 
the concentrations of nitrogen by percent in the 
leaves, seed, burrs, stems, and roots. NPART 
(1-5) is the nitrogen accumulation by weight in 
leaves (1), seed (2), burr (3), stems (4), and 
roots (5) . 


INPUT DATA 


8 BAT A; L 

CLMBATA.j 

■CLMDATA. 







DATA Q 06- 

-RLIB67-10 

12/05-13! 

: 26:31 





000001 

> . 020 

.20 


.20 


. 00 


.10 

000002 

.020 

. 20 


.20 


. 00 


. 05 

000003 

.020 

.20 


.20 


. 00 


,20 

000004 

.020 

. 20 


.20 


. 00 


.30 

000005 

. 020 

.20 


.20 


. 00 


. 40 

000006 

. 020 

. 20 


.20 


. 00 


.48 

000007 

. 020 

.2D 


.20 


. 00 


.56 

ooooos 

. U2 0 

.20 


.20 


. 00 


. 64 

000009 

. 020 

.20 


.20 


. 00 


.72 

ooooio 

. O20 

. 20 


.20 


. 00 


.80 

0 00011 

. 030 

.30 


.30 


. 00 


.92 

000012 

.030 

.30 


.30 


. 00 


1. 04 

000013 

. 030 

.3U 


.30 


. 0 CI. 


1.16 

000014 

. 030 

.30 


■ 3U 


. 00 


1.28 

000015 

.030 

• 30 


.30 


. 00 


1.40 

000016 

. 050 

.50 


72 


• OO 


1.56 

000017 

. 050 

.50 


',32 


. UIJ 


1,72 

000018 

.050 

.50 


. 32 


. 00 


1.88 

000019 

. 050 

.50 


.32 


. 00 


2. 04 

000020 

. 050 

.50 


.32 


. 00 


2.20 

000021 

. 080 

.80 


.48 


. on 


2.46 

000022 

. 080 

.so 


,48 


. 00 


2. 72 

000023 

. 080 

• 80 


.48 


, 00 


2. 98 

000024 

- 080 

. 80 


.48 


, 00 


3,24 

000025 

. 080 

,80 


.48 


. 00 


3.5 0 

000026 

. 060 

.60 


.40 


. 00 


3.70 

000027 

-060 

. 60 


,40 


. 00 


3.90 

000028 

.060 

.66 


.40 


. 00 


4.10 

000029 

. 060 

.60 


.40 


.00 


4.30 

000030 

. 060 

.60 


.40 


. 00 


4.50 

000031 

.080 

.80 


.60 


. 00 


4.76 

000032 

. 080 

.80 


.60 


.00 


5. 02 

000033 

.080 

. 80 


.60 


. DO 


5.28 

000034 

.080 

.80 


.60 


. 00 


5,54 

000035 

. 080 

.80 


.60 


. 00 


5 . 8 0 

000036 

. 080 

.80 


.60 


. 00 


5.80 

000037 

. 080 

.80 


.60 


. 00 


5.80 

000038 

.080 

.80 


, 60 


, 00 


5.80 

000039 

, 080 

.80 


.60 


. 00 


5.80 

000040 

. 080 

. 80 


„ 6 0 


. 00 


5.80 

000041 

• 080 

.80 


*60 


.50 


5.80 

000042 

.040 

. 040 .050 

. 060 

. 070 

.100 

.225 

. 225 

. 225 

000043 

.225 

.225 .225 

• £25 

. 225 

. 225 

.225 

.225 

.225 

000044 

.150 

.130 .120 

.110 

.100 

. 095 

. 08 0 

. 075 

. 070 

000045 

.15 . 

010 .009 . 

007 . 

005 . 

004 . 

002 . 

001 



wu utnu * . yur . uvj . . uuc . uui 

000046 WEATHER FOR COPIAH COUNTY, MISS. ,1972 
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.225 .225 .225 .225 .225 .225 .225 

.225 .215 .200 .195 .190 .175 .160 

.060 .050 .040 .035 .030 .027 .020 



INPUT DATA-Continued 


00004 ? 

000048 

187 

138.00 

30.00 

000049 

468. 00 

80 . 00 

000050 

443. 00 

80 . 00 

000051 

405. 00 

86.00 

000052 

208, 00 

78 . 00 

000053 

608. 00 

75 . 00 

000054 

698, 00 

77.00 

000055 

589. 00 

80 . 00 

000056 

464, 00 

81.00 

00005 ? 

584, 00 

76.00 

000058 

584. 00 

81.00 

000059 

658. 00 

76.00 

000060 

631 . 00 

74.00 

000061 

446. 00 

70 . 00 

000062 

212. 00 

69.00 

000063 

658. 00 

81.00 

000064 

663. 00 

SO . 00 

000065 

698. 00 

79.00 

000066 

647, 00 

86 . 00 

00006 ? 

547. 00 

82 . 00 

000068 

656. 00 

77 . 00 

000069 

661. 00 

78.00 

000070 

645. 00 

87,00 

000071 

657. 00 

87.00 

000072 

641 • 00 

91.00 

000073 

648. 00 

90 . 00 

000074 

635. 00 

90.00 

000075 

663.00 

88.00 

000076 

596. 00 

90 . 00 

000077 

‘ 596,00 

88.00 

000078 

596.00 

89.00 

000079 

000080 

395.00 

90 . 00 

692. 00 

89.00 

000 081 

638. 00 

81.00 

000062 

706. 00 

86 . 00 

000083 

70 7, 00 

79.00 

000084 

690. 00 

90 . 00 

000085 

685. 00 

89.00 

000086 

630. 00 

91.00 

0000 S 7 

643. 00 

91.00 

000088 

515. 00 

. 97.00 

000089 

532. 00 

94 . 00 

000090 

396. 00 

93.00 

000091 

493.00 

92.00 

000092 

515. 00 

90 . 00 

000093 

623. 00 

90 . 00 

000094 

410. 00 

92 . 00 

000095 

301. 00 

91. 00 

000096 

396, 00 

92.00 

000097 

352. 00 

89 . 00 

000098 

656. 00 

90 . 00 

000099 

648. 00 

91.00 

000100 

652. 00 

89.00 

000101 

657. 00 

95 . 00 

000102 

548. 00 

91 . 00 

000103 

326. 00 

92 . 00 

0001 04 

301.00 

90 . 00 

000105 

545. 00 

92.00 

000106 

241.00 

89 . 00 

000107 

584. 00 

93 . 00 

OOG 1 06 

607. 00 

94 . 00 

0001 09 

554.00 

93 . 00 

000110 

215.00 

90.00 

00011 1 

370.00 

94.00 

0001 12 

602. 00 

92 . 00 

000113 

635. 00 

93. 00 

000114 

260, 00 

93 . 00 

000115 

278. 00 

89 . 00 

000116 

659. 00 

77.00 

000117 

669. 00 

81 . 00 

ooona 

692, 00 

85 . 00 

000119 

508. 00 

86 . 00 

000120 

611.00 

89 . 00 

000121 

551. 00 

38 . 00 

000122 

614.00 

91.00 

000123 

630.00 

92 . 00 

000124 

568. 00 

85.00 

000125 

533. 00 

89 . 00 

000126 

461. 00 

90 . 00 

000127 

598. 00 

93 . 00 


54.00 


. 06 

119 . CIO 

54 . 00 


.01 

120 . 00 

54 , 00 


.15 

121. 00 

57 . 00 


.20 

122. 00 

60.00 

1.53 

.20 

123. 00 

59 . 00 

69 

. 06 

124. 00 

47 . 00 


.25 

125.00 

52 . 00 


.22 

126 . OO 

50 . 00 


.19 

127 . OO 

64 . 00 

.10 

. 18 

128. 00 

65 . 00 

.58 

. 04 

129, 00 

60 . 00 


. 15 

130.00 

53 . 00 


.22 

131.00 

66 . 00 


.22 

132.00 

64 . 00 

. 06 

.19 

133.00 

60 . 00 

.80 

.09 

134.00 

60 . 00 


.19 

135.00 

56 . 00 

.02 

.28 

136,00 

54 . 00 


.28 

137. 00 

60 . 00 


. 2 ? 

138. 00 

55 . 00 


.21 

139,00 

58 . 00 


.26 

140.00 

56 . 00 


.33 

141.00 

56 , 00 


.28 

142. 00 

61. 00 


.29 

143.00 

65 . 00 


.25 

144.00 

73 . 00 


.30 

145 , OO 

61. 00 


. 2 ? 

146. 00 

59 . 00 


.33 

147.00 

62 . 00 


.25 

148. 00 

60 . 00 


.29 

149. 00 

61, 00 


,24 

150 . 00 

59 . 00 


. 16 

151. 00 

57 . 00 


.32 

152. 00 

50 , 00 


.25 

153. 00 

46 , 00 


. 24 

154.00 

54 . 00 


.23 

155. 00 

55 . 00 


« < l 6 

15 b . 00 

54 . 00 


.28 

157. 00 

60 . 00 


.28 

158.00 

65 . 00 


,26 

153.00 

65 . 00 


.32 

160 . 00 

62 . 00 


.23 

161. 00 

69 . 00 


.20 

162. 00 

65 . 00 


.23 

163. 00 

68 . 00 

. 04 

.22 

164. 00 

68 . 00 


.27 

165. 00 

69 . 00 

, 05 

. 1 ? 

166 . OO 

66 . 00 

■ 13 

.11 

16 ?, OO 

70 . 00 

• 24 

.11 

168. 00 

70 . 00 

, 07 

.09 

169. 00 

71. 00 


.23 

170,00 

69 . 00 


.28 

171. 00 

65 . 00 


.33 

172.00 

68 . 00 

.34 

.36 

173.00 

61 . 00 


.20 

174. 00 

62 . 00 

.23 

. 17 

175, 00 

71. 00 


.10 

176.00 

68 , 00 


.22 

177.00 

72 . 00 

.91 

, 12 

178.00 

73 . 00 


.26 

179.00 

75 . 00 


.36 

ISO . 00 

70 . 00 


.29 

181. 00 

68 , 00 

1.53 

.03 

182.00 

68 . 00 

. 19 

.21 

183. 00 

73 . 00 


.26 

184. 00 

69 . 00 

.11 

.28 

185.00 

67 . 00 

.26 

.19 

186. 00 

67 . 00 

. 15 

.11 

187.00 

59 . 00 


.25 

188. 00 

57 . 00 


.25 

189. 00 

55 , 00 


.23 

190.00 

59 , 00 


.18 

191, 00 

65 . 00 


.19 

192.00 

63 . 00 


.22 

193.00 

66 . 00 


.27 

134.00 

63 . 00 

.61 

.27 

195 . no 

67 , 00 

.58 

.27 

196.00 

65 . 00 


.24 

197.00 

70.00 


.20 

198.00 





INPUT DATA-Confinued 


000128 

4y9. 00 

88. 00 

68. GO 

.83 

.28 

199. 00 

000129 

6^7, 00 

9 0 . 0 0 

67. 00 

.45 

.20 

200. OO 

000130 

663.00 

92 . 0 fi 

96. 00 


.24 

201. OO 

000131 

601 . 00 

89.00 

68. 00 

■ 

.28 

202. 00 

000132 

490. 00 

91.00 

68. 00 

. 02 

■“ -J 
» iL. 1 

203. 00 

000133 

671.00 

94.00 

66. 00 


■ 19 

204. 00 

000134 

547.00 

95.00 

70. 00 


.25 

205. 00 

000135 

516.00 

94.00 

68. 00 

, 02 

. 22 

2 06 , 0 0 

000136 

551.00 

95. 00 

72. OO 


.27 

207. 00 

000137 

604.00 

93.00 

71 . OO 


.27 

208. 00 

000138 

582. 00 

93.00 

73. 00 

.50 

.29 

209. 00 

000139 

561.00 

92.00 

73. OO 

.05 

.28 

21 0. 00 

000140 

240.00 

85. 00 

70. OO 

1.74 

.30 

211.00 

000141 

434. 00 

84.00 

69. OO 

.12 

212. OO 

000142 

519.00 

89. 0U 

69. OD 

.60 

. 15 

213. OO 

000143 

609. 00 

90. no 

66. 00 


. 05 

214. 00 

000144 

492. 00 

91.00 

68, 00 


.22 

215. 00 

000145 

610.00 

93.00 

68. 00 


.25 

216, 00 

000146 

623.00 

93. 00 

70, 00 


, 26 

217. OO 

000147 

626, 00 

92.00 

70. 00 


. 27 

218. 00 

000148 

646. 00 

92.00 

69. 00 


.25 

219.00 

000149 

635.00 

95.00 

74. OO 


.34 

220. 00 

000150 

589. 00 

92.00 

74, OO 


k 

221.00 

000151 

556.00 

95.00 

73. OO 


■ 27 

222. 00 

000152 

461.00 

93. 00 

68, OO 


. 30 

223. 00 

000153 

441.00 

96. 00 

67, OO 


, 13 

224. OO 

000154 

370, 00 

94.00 

66. 00 


■ 23 

225. OO 

000155 

356.00 

91.00 

68. OO 

.09 

. 18 

226. 00 

000156 

532. 00 

93, 00 

68. OO 


.15 

227. 00 

000157 

550.00 

89, 00 

68. OO 

,25 

.24 

228. 00 

000158 

480.00 

92. 00 

67. OO 


. £. i 

229. 00 

000159 

521.00 

93 , 00 

68, OO 


.24 

230.00 

000160 

504,00 

92,00 

68. OO 


.25 

231.00 

000161 

566, 00 

96.00 

69. OO 


.24 

232.00 

000162 

498, 00 

98, 00 

70. 00 


.24 

233. 00 

000163 

412. 00 

99.00 

73. OO 


.23 

234.00 

000164 

439. 00 

97.00 

77. OO 


,28 

235. OO 

000165 

509. 00 

95. 00 

68. OO 


.33 

236. 00 

000166 

259.00 

96.00 

68.00 


.21 

237. OO 

000167 

402.00 

94.00 

68. 00 

.41 

.22 

238. OO 

000168 

319.00 

94. 00 

69 , 0 0 

.05 

. 13 

239. 00 

000169 

586, 00 

93.00 

68. 00 


. 16 

240.00 

000170 

584.00 

89. 00 

61. 00 


.27 

241. 00 

000171 

551 . 00 

91, 00 

62, 00 


.25 

242, 00 

000172 

520.00 

92. 00 

61 , 00 


.22 

243. 00 

000173 

460.00 

95. 00 

63. 00 


.23 

244. 00 

000174 

385.00 

92. 00 

69. 00 


. 19 

245. 00 

000175 

478.00 

95. 00 

67. 00 

.03 

. 13 

246.00 

000176 

435.00 

96.00 

65. 00 


. 18 

247. 00 

000177 

270.00 

96. 00 

67. 00 


.24 

248.00 

000178 

262. 00 

30. 00 

70. 00 


.13 

249. 00 

000179 

514.00 

93, 00 

63. 00 


.12 

250. 00 

000180 

472.00 

96.00 

73. 00 


.19 

251.00 

000181 

522.00 

98.00 

72. 00 


.22 

252.00 

000182 

495,00 

95.00 

73.00 


.24 

253.00 

000183 

539.00 

95.00 

68. OO 1 


.30 

254. 00 

000184 

401,00 

91,00 

69. OO 


.21 

255. 00 

000185 

485. 00 

96. 00 

72.00 


,15 

256. 00 

000186 

514. 00 

96. 00 

61. 00 


.20 

257, 00 

000187 

530.00 

97.00 

65.00 


,30 

258.00 

000188 

503. 00 

93. 00 

64. 00 


.26 

259. 00 

000189 

286.00 

94.00 

67, 00 


,24 

260.00 

000190 

365.00 

96. 00 

66. OO 

1.43 

. 12 

261.00 

000191 

518.00 

96. 00 

69 . 0 0 

.02 

.15 

262. 00 

000192 

483. 00 

94. 00 

70. OD 


,23 

263. 00 

000193 

478. 00 

95.00 

67. 00 

.44 

.21 

264 . 00 

000194 

399. 00 

91, 00 

66. 00 


.20 

265. 00 

000195 

200. 00 

90. 00 

68. 00 

1.31 

. 16 

266. OO 

000196 

355. 00 

91.00 

68. 00 

.62 

.05 

267, 00 

000197 

238. 00 

90. 00 

66, 00 


.13 

268. 00 

000198 

162.00 

88. 00 

72. 00 


.13 

269, 00 

000199 

36 1.00 

87. 00 

67, 00 


.08 

270. 00 

000200 

343.00 

88. 00 

70. OO 

.45 

.17 

271. 00 

000201 

365.00 

89. 00 

70. 00 

.29 

. 18 

272. 00 

000202 

387.00 

87.00 

69. 00 

1.22 

. 12 

273.00 

000203 

544.00 

78. 00 

57, 00 


,34 

274. 00 

000204 

528. 00 

72. 00 

41. 00 


. 19 

275.00 

000205 

518. 00 

78. 00 

43. OO 


. 15 

276, 00 

000206 

458. 00 

78. 00 

54. OO 


. 17 

277.00 

000207 

409. 00 

88. 00 

65,00 

.02 

. 14 

278. 00 

000208 

410.00 

87.00 

65, 00 


.17 

279. 00 


68 



INPUT DATA-Continued 


000209 

355. 00 

85.00 58.00 


. 17 

280 . 00 



000210 

391.00 

76.00 64.00 


. 17 

281. 00 



00021 1 

385. 00 

78.00 52.00 


. 09 

282,00 



000212 

395. 00 

81,00 52.00 


. 12 

283. 00 



000213 

400.00 

87.00 51.00 


. 12 

284/00 



000214 

432. 00 

86.00 55.00 


. 17 

285. 00 



000215 

409. 00 

86.00 55,00 


.14 

286, 00 



000216 

361.00 

89.00 58.00 


.14 

287. 00 



000217 

416, 00 

90.00 59.00 


. 14 

288. 00 



000218 

339. 00 

81.00 66.00 


,17 

289. 00 



000219 

402. 00 

86,00 53.00 


. 15 

290 . 00 



000220 

393. 00 

90.00 67.00 


.15 

291. OO 



000221 

351.00 

89.00 67.00 


.16 

292. 00 



000222 

104.00 

78 . 00 5 0.00 

. 13 

.26 

293. 00 



000223 

376. 00 

70.00 37.00 

.03 

.05 

294.00 



000224 

271.00 

75.00 51.00 


. 08 

295. 00 



000225 

43 . 00 

78,00 61.00 


.07 

296. 00 



000226 

346. 00 

79.00 65.00 

1,75 

.11 

297. 00 



000227 

141.00 

67.00 52.00 

. 02 

.15 

298. 00 



000228 

81.00 

60.00 39.00 


.11 

299. 00 



000229 

34 . 00 

57.00 38.00 


.03 

3 00.00 



000230 

262 . 0 0 

65,00 52.00 

.55 

.07 

301.00 



000231 

84 . 00 

69, 00 48. 00 


.02 

302.00 



000232 

71.00 

73.00 52.00 


.03 

303 . 00 



000233 

72.00 

82. 00 54 . 00 


.08 

304 . 00 



000234 

172.00 

86.00 66.00 


.00 

305. 00 



000235 

-2304 

-2242 

-2213 



-2137 


000236 

-2054 

-2005 

-1909 


- 

-1308 

-1719 

000237 


-1610 

-1455 


-1337 


-1215 

000238 


-1050 

- 923 


- 753 


- 62 1 

000239 


- 448 

- 3-4 


- 139 


- 005 

000240 


130 

304 


414 


546 

000241 


71 ? 

846 


1012 


1135 

000242 


.1256 

1413 1450 



1602 


000243 ; 

1709 

1811 

1909 



2002 


000244 

2049 

2130 

2157 


2228 


2252 

000245 


2310 

2322 


2327 


2325 

000246 


2317 2310 


2252 



2228 

000247 

2157 

2121 


2038 



1950 

000248 

1857 

1814 

1712 



1606 


000249 

1455 

1341 

1223 



,1102 


000250 

936 

835 

707 


537 

406 

000251 


234 

101 


- 032 


- 206 

000252 

- 253 

- 426 


- 538 


- 

- 729 

000253 

- 858 

-1025 


-1150 


- 

'1312 

000254 

-1411 

-1527 

-1638 



-1745 


000255 

-1848 

-1945 

-2036 



-2121 

-2141 

000256 


-2216 

-2245 

- 

-2306 


-2320 

000257 


-2326 

■2325 

- 

-2317 

.5 


000258 

.5 . 0 

.0 .0 .0 2.5 

.2 ,0 .0 

.0 

5,0 2.0 

8.7 7,2 

.0 .0 

000259 

6.8 4.0 

2.2 1.0 .5 7,7 

5.6 4 . 0 2.7 

2.0 

6 . 0 

5, 0 4.5 

000260 

9.0 8.5 

7.2 6.5 6 m 0 





1 . 0 41 000 - 

000261 

34 

170 1,69 

125 

101.6 

1.35 


000262 

1.0 

0.60 20.0 

30.0 





000263 

HEW 1 0 0 

10 
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OUTPUT DATA 


G»XQT CLMCGT.S 

HEATHER FOR COPIAH COUNTY, MISS. 
CONCENTRATIONS .0420 -0000 .0000 

NPART<i-5> . Oirlfc.4 . 0001 . OUUl 


1972 
. 0200 
.0103 


.0200 NSTRES* 0 
. 0004 


n^V = in rupO STRESS 0 H20 STRESS .0 SOLAR RAD 663. PLANT WT 1.17 

qhi I 6DPQ i ric-r fi ROLLS LOST 0 LAI . 08 PHYSIOL. DAYS 6 BLOOMS LOoT 0 
LEAF R WT L t63 °HAINSTEM NODES 0* SQUARES 0 « GREEN BOLLS 0 ft SITES 0 


CONCENTRATIONS . .0420 .0000 .0000 .0200 

NPART< 1-5) .0473 . UUOl . OOul .017,' 


.0200 NSTRES* 0 
. 0008 


11k” §g ,g«f toj L gi? s ; re §, :?4 »r»«?r- i/ l m Loti% 

LEAF^UT L l?13 MQIHSTEM NODES 0 H SQUARES 0 R GREEN BOLLS 0 # SITES 0 

^CONCENTRATIONS .0420 ..0000 . 0000 .0180 . 0200 NSTRES* 0 

NPARTO-5) . 0885 . UUOl . 00 Ol . 0 j39 . 0042 

t>*v in ru^n ctijFAA D HPO STRESS 1.0 SOLAR RAD 690. PLANT WT 4.04 

Square® LOST 0 BALLS LOST I LAI 26 PHYSIOL. DAYS 20 BLOOMS LOST 0 
LEAF WT 2? 11 MAINSTEM NODES 0 • SQUARES 0 * GREEN BOLLS 0 tt SITES 0 


'CONCENTRATIONS .0420 .0000 .0000 .0176 

NPART < 1-5) .1597 .UUOl .UOUl .Ub30 


.0200 NSTRES* 0 
. 0130 


HAY 40 CH20 STRESS 0 H20 STRESS 1.0 SOL0R RAD 410. PLANT WT r. 95 

SQUARES LOST" 0 BOLLS LOST 0 LAI .46 PHYsIOL. DAYS 28 BLOuMb LOST O 
LEAF WT 3^80 MAINSTEM NODES 0 # SQUARES 0 # GREEN BOLLS 0 _# SITES 0 


CONCENTRATIONS .0420 . 0000 .0000 .0171 . 0190 NbTRES= 

NPART (1-5) . 2938 . 0001 .0001 .11Y9 . Ul«6 

X X 

I I 

« 0 = 0 * 0 * 0 = 0 = 0 = 0 * 0 = 0 = 

I 
X 

DAY 50 CH20 STRESS 0 H20 STRESS 

LEAf^WT L 6?99 °MAINStIm L H0DE3° 9 L # SQUARES "4*4 GREEN BOLLS 0 # SITES 4 

X 

I 

==0=0=0= 

VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


0 SOLAR RAD 301. PLANT WT 14.04 
85 PHYSIOL. DAYS 37 BLOOMS LOST 0 


CONCENTRATIONS .0398 .0000 .0000 .0147 -Oil? NSTRES* 0 

NPART (1-5) .4864 .0001 .0001 .17b7 .0122 

X X 

n h 

==0=G=0=0=0=0=0=0=0=0=0=0=0= 

I I I 
XXX 
I I 

DAY 60 CH20 STRESSED H20 STRESS .5 SOLAR RAD 260. PLANT WT 22.15 
SQUARES LOST 0 BOLLS LOST 0 LAI 1.49 PHYSIOL. DAYS 47 BLOOMS LOST 0 
LEAF WT 12.23 MAINSTEM NODES 13 # SQUARES 16 # GREEN BOLLS 0 4 SITES . lb 

XXX 
I I I 
=* 0 = 0 = 00 = 0 = 0 = 0 = 

I I 
X X 

VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


70 



OUTPUT DATA— Continued 


CONCENTRATIONS . 0310 
NPART <l-5> .6752 

X X 
I r 
X X 
I I 
X X 
I I 

I 

X 

I 


.0000 .0000 


X 

I 

X 

I 


0001 


X 

I 

X 

I 


. 0001 


. 0114 

.. 2364 


i 0097 NSTRES- 1 
. 01 19 


X 

I 


:O=O=G=O=O=0=O= 


I 


I 

X 

I 

X 


I 

X 


DAY 70 CH20 STRESS 0 H20 STRESS .5 SOLAR RAD 568. PLANT WT 37.72 

SQUARES LOST 0 BOLLS LOST 0 LAI 2.58 PHYSIOL. DAYS 55 BLOOMS LOST 0 
LEAF WT 21.20 MA INSTEM HADES 16 # SQUARES 29 # GREEN BOLLS 0 tt SITES 30 

X 

I 

X X X X 

I I I I 

==O=O=0=Q=O=0=0=0=G=Q= 

I I I I 

X X X X 

I 
0 

VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


CONCENTRATIONS 
NPART < 1 -5> 

X 
I 
X 
I 
X 
I 
* 
I 


, 0262 
7525 
X 


.007? , 0072 

0077 „ 0009 


.0082 
. 2792 


.007? NSTRES= 2 
. 0106 


I 

X 

I 

X 

I 

* 

I 


X 

I 

X 

I 

X 

I 


X 

I 

X 

I 


X 

I 


X 

I 


^O=q==O=O=G=O=i>O=Q=0=O=O=O=G=0=G=O=O=O=U= 


I 

X 

I 

X 

I 

X 


I 

X 

I 

X 

I 

X 


I 

X 

I 

X 


I 

X 


I 

X 


DAY 80 CH2G STRESS 2 , H20 STRESS .5 

LEAF^T 28?74 °MA INSTEM NODES 20 # SQUARES 44 # GREEN BOLLS 4 # SITES 52 


SOLAR RAD 547. PLANT WT ( 54.69 
PHYSIOL. DAYS .65. BLOOMS LOST 0 


X 

I 

X 

I 


X 

I 


X 

I 


X 

I 


==0=0=0=0=0=0=0=0=13=0=0=0=0=0= 
I I I I I I 


X X 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


CONCENTRATIONS .0210 
NPART <1 -5) . 6925 

X X 


.0781 .0061 

0781 .0080 


.0063 

.2792 


, 0079 NSTRES- 2 
.0106 



OUTPUT DATA— Continued 


I 

* 

I 

* 

I 

* 

I 


I 

0 

I 

* 

I 

* 

I 


X 

I 

0 

I 


X 

I 


S5 = 2 0-0=0“0=0=0=0“0-"0=0=0“0=0=0”0=0“Ci=0=0=0~ 


I 

* 

I 

* 

I 

0 

I 

V 


I 

•+* 

r 

* 

r 

X 


I 

0 

I 

D 

I 

X 


I 

0 

I 

X 


I 

X 


DAY 90 CH20 STRESS 3 H20 STRESS .0 

SQUARES LOST 0 BOLLS LOST 0 LAI 4.00 
LEAF UT 32.93 MA INSTEM NODES 20 # SQUARES 


SOLAR RAD 492. PLANT UT 67.50 
PHYSIOL. DAYS 75 GLOOMS LOST 0 
19 # GREEN BOLLS 15 # SITES 52 


0 

I 

0 

I 

* 

I 


X 0 
I I 

* * 0 X X 

I I I I I 

a:s; 0=0= : 0=0= : 0=0“U s: 0= 5 0 = 0“0-0=0=0= : 

I I I I I I 


* 

I 

0 

I 

X 


0 


X X 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


CONCENTRATIONS . 0186 
NPART ( 1“5) .6812 


0 

I 

* 

I 

* 

I 

* 

I 


0 

I 

0 

I 

* 

I 

* 

1 


.113? 

1137 


. 0037 

.0110 


. 0051 
. 2696 


.0075 NSTRE3- 
. 0105 


0 

1 

* 

I 


0 

I 

0 

I 


0 

I 


0 

I 


B a0»0«0«0»0s0a0«0*=0a0a0«0a0*0s0a0=0e0=0a0* 


I 

* 

I 

+ 

I 

0 

I 

0 


I 

* 

I 

* 

I 

0 


I 

0 

I 

0 


I 

0 


I 

0 


DAY 100 CH20 STRESS 2 H20 STRESS .5 

SQUARES LOST 0 BOLLS LOST 0 LAI 4.44 
LEAF UT 36.54 MA INSTEM NODES 20 # SQUARES 


SOLAR RAD 370. PLANT WT 74.70 
PHYSIOL. DAYS G4 BLOOMS LOST 0 
0 tt GREEN BOLLS 15 4 SITES 52 


0 

I 

0 

I 

* 

I 


0 

I 

* 

I 


0 

I 

Hi 

I 


0 

I 


0 

I 


0 

I 


==0=0=0==0=0=0=Ci~0= i G=0=0=0=0 =0= 


r- 

0 

I 

0 


VEGETATIVE BRANCH GROWING FROM NODE b OF THE MAIN STEM 



OUTPUT DATA— Continued 


CONCENTRATIONS 

NPART<1~5> 

0 
I 
0 
I 
* 
I 
* 
I 


,0175 
6851 
0 


.1053 

1053 


. 0017 
0093 


. 0043 
. 2694 


. 0070 
. 0105 


NSTRES® 4 


0 

I 

0 

I 

0 

I 


0 

I 

0 

I 


0 

I 

0 

I 


»« 3 0*0“0“0*0=0a0«0=0*0»0»0=0«0s0*0a0*0»0=0= 


I 

+ 

I 

0 

I 

0 

I 

0 


I 

■¥ 

I 

0 

I 

0 


I 

0 

I 

0 

I 

0 


I 

0 

I 

0 


I 

0 


DAY 110 CH20 STRESS 
SQUARES LOST 
LEAF WT 39.07 


1 H2G STRESS 


2 2 

0 BOLLS LOST 0 LAI 4! 75 . 

MA INSTEM NODES 20 ft SQUARES 


SOLAR RAD 439. PLANT WT 83.58 
PHYSIOL. DAYS 94 GLOOMS LOST G 
0 ft GREEN BOLLS 7 ft SITES 52 


0 

1 

0 

1 


0 

I 

0 

I 


.0 

I 




I 

4* 

I 

0 

I 

0 


I 

0 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


CONCENTRATIONS .0167 ,1195 .0015 .0037 . 0067 NSTRES- 4 


NPART<l-5> 


.6896 .1195 ,0113' .2663 


0 

1 

0 

1 
* 
I 
* 
I 


.0108 


0 

I 

0 

I 

0 

I 


0 

I 


u0>0-0»0-0e0»0»0»0»0»0«0«0>=0»0"0«0«0«0»0» 


I 

* 

I 

0. 

I 

0 

I 

0 


I 

* 

I 

0 

I 

0 


I 

0 

I 

0 

I 

0 


I 

0 

I 

0 


I 

0 


I 

0 


DAY 120 CH20 STRESS 2 H20 STRESS .5 


SQUARES LOST 
LEAF WT 41.20 


0 BOLLS LOST 0 LAI 5.01 


SOLAR RAD 385. PLANT WT 91.90 
PHYSIOL, DAYS 103 BLOOMS LOST O 


MAINSTEM NODES 20 ft SQUARES 0 ft GREEN BOLLS 7 ft SITES 52 


0 

1 

0 

1 


0 

I 

0 

I 


0 

I 


0 

I 


““0= S 0=0=0=0=0 : = : 0=CI-0 -0=0=0“ O^O^ 
I I I I I I 


0 

I 

0 


0 0 0 0 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 



OUTPUT DATA-Continuod 


CONCENTRATIONS .0165 
NPARTC1-5) .6923 . 


0 

I 

0 

I 

* 

I 

# 

I 


0 

I 

0 

I 

0 

I 

* 

I 


.1344 

1344 


. 0016 
,0133 


. 0032 
. 2643 


,0063 NSTRES* 3 
. 01 08 


0 

1 
0 
I 
0 
I 


0 

I 

0 

I 


0 

I 

0 

I 


0 

I 


a:=Os:O:*O=O=0“O=O=O :s G ;3 O=O=^=G“O“O ::: O“O ::: Q ::: O= r Q= : 


I 

# 

I 

0 

I 

0 

I 

0 


I 

0 

I 

0 

I 

0 


I 

0 

I 

0 


I 

0 


DAY 130 CH20 STRESS 1 H20 STRESS .5 

SQUARES LOST 0 BOLLS LOST 0 LAI 5.12 


SOLAR RAD 401. PLANT UT 96.72 
PHYSIOL. DAYS 112 BLOOMS LOST 


LEAF UT 42.08 MAIHSTEM NODES 20 # SQUARES 0 # GREEN BOLLS 5 # SITES 52 


0 

1 

0 0 0 

I I I 

* 0 0 0 0 0 

I I I I I I 

—G=O=O~O“O=0=0=ri=O=i>0=0~Q-O- 
I I I I 1 I 

* 0 0 0 0 o 

I I 
0 0 

0 

VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


CONCENTRATIONS . ( 
HP ARK 1-5) „ 694$ 


H77 


.1374 

1374: 


.0017 

.0140 


. 0028 
.2730 


. 0059 NSTRES= 
.0105 


0 

I 

0 

I 


0 

I 

0 

I 


0 

I 


0 

I 


: ~O=G-U<|=O=G=U~U-|>U=G“O=0=O~U=0= : O“O ::: O=U= 


I 

0 

I 

0 


I 

0 

I 

0 


DAY 140 CH20 STRESS 0 
SQUARES LOST 
LEAF UT 39.21 


H20 STRESS .0 

0 BOLLS LOST 0 LhI 4,77 
MAIHSTEM NODES 20 # SQUARES 


SOLAR RaL 399, PLANT UT 98.82 
PHYSIOL. DAYS 121 BLOOMS LOST 0 
0 # GREEN BOLUS 0 # SITES 52 


0 

I 

0 0 0 

I I I 

# 0 0 0 0 0 

I I I I I I 

5==0«0=0=0-0*0=0-0=0 !s 0=0=0a0«0= 
I I I I I I 


0 

I 

0 


0 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


74 



OUTPUT DATA— Continued 


CONCENTRATIONS .0199 
NPART < 1 -5 ) .7034 


0 

I 

0 

I 

# 

I 

# 

I 


0 

I 

0 

I 

0 

I 

# 

I 


.1374 

1374 


. 0019 
.0155 


. 0021 
.2238 


0 

I 

0 

I 

0 

I 


0 

I 

0 

I 


0 

I 

0 

I 


0 

I 


== 0 = 0 = 0 = 0 = 0 = 0 " 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 ~ 0 - 


DAY 150 CH20 
SQUARES LOST 
LEAF WT 35.28 


I 
# 

I 
0 
I 
0 
I 
0 

STRESS 0 
0 BOLLS 


I 

0 

1 
0 


I 

0 

I 

0 


I 

0 


,0052 NSTRES* 
. 0095 


H20 STRESS 
LOST 0 LAI 


.0 

4.29 


MA INST EM MODES 21 # SQUARES 


SOLAR RAD 523. PLANT UT 93.29 
PHYSIOL. DAYS 130 BLOOMS LOST 0 
1 # GREEN BOLLS 0 # SITES 53 


0 

1 
0 
I 
# 
I 


0 

I 

0 

I 


0 

I 


0 

I 


==0“0-0=0=0=0=0=0=0-0=0«0=G=0= 


I 

# 

I 

0 

I 

0 


I 

0 

I 

0 


I 

0 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


CONCENTRATIONS 


NPART <1-5) 


0 

1 
0 
I 
# 
I 
# 
I 


-.0193 . 1374 

.7204 .1374 


0 

1 
0 
I 
0 
I 
# 
I 


. 0020 
, 0161 


.0018 

.2092 


0 

1 
0 
I 
0 
I 


0 

I 

0 

I 


0 

I 

0 

I 


0 

I 


12 : 20 : 20 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 


.0048 
. 0091 


X 

I 


NSTRES= 1 


I 

# 

I 

0 

I 

0 

I 

0 


I 

4 

I 

0 

I 

0 


I 

0 

I 

0 

I 

0 


I 

0 

I 

0 


I 

0 


DAY 160 CH20 STRESS 0 H20 STRESS .0 

SQUARES LOST 0 BOLLS LOST 0 LAI 4.54 
LEAF WT 37.31 MAINSTEh NODES 23 # SQUARES 


I 

X 


SOLAR RAD 432. PLANT WT 94.87 
PHYSIOL. DAYS 136 BLOOMS LOST 0 
3 # GREEN BOLLS 0 # SITES 55 


0 

I 

0 

I 

# 

I 


0 

I 

0 

I 


0 

I 

0 

I 


0 

I 


«0=0=0=0=0=0=G=0=0=0=G=0=0=0= 


I 

0 

I 

0 


I 

0 


I 

0 


I 

0 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 



OUTPUT DATA-Continued 


CONCENTRATIONS' .0196 .1374 .0021 .0014 .0049 NSTRES= 0 

MPART<l-5> .7409 .1374 .0170 .1743 .0095 

V 


I 

0 

I 

0 

I 

# 

1 

# 

1 


X 

I 

G 

I 

0 

I 

0 

I 


0 

I 

0 

I 


0 

I 


==o=o=o=o=o=o=o=c^c^o^o=o=o=o=o=o=o=o=o=a^i>o-G^o=i:i= 


I 

# 

I 

0 

I 

0 

I 

0 


I 

0 

I 

0 

I 

X 


I 

0 

I 

X 


I 

X 

I 

X 


I 

X 


DAY 170 CH2G STRESS 0 
SQUARES LOST 
LEAF WT 37.80 


H20 STRESS 


.0 

Ci BOLLS LOST 0 LAI 4.60 
MAINSTEM NODES 25 # SQUARES 


SOLAR RAD 271. PLANT LIT 94.04 
PHYSIOL. DAYS 142 BLOOMS LOST 0 
14 tt GREEN BOLLS 0 # SITES 66 


0 

1 

0 0 0 

I I I 

# 0 0 0 0 0 

I I I I I I 

*»0=0=0“0*0=0=0=0=sO=ObO=0-0«0= 
I I I I I I 


# 

I 

0 

I 

0 


0 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


YIELD/ACRE 1.679 EMERGENCE DATE 125. GROLHNGDAYS 172 LATITUDE 34.0 
# OF GREEN BOLLS 0 # OF OPEN BOLLS 7 SOIL H20 CAPACITY 1.69 
H20 RUN OFF .48 ROW SPACING 101.6 # OF PL ANTS/ ACRE 41 000. 


GBRKP.T PRINT* 


Insect Damage Experiment 

The second way in which SIMCOT II can be 
used is to directly simulate insect damage by re- 
moval (changing the fruiting code) of appropri- 
ate fruit. Again the same data file is used with 
the exception of the last card. This program fea- 
ture was designed to be used on an on-line inter- 
active basis with a demand or time-share term- 
inal but can be used also with card input in the 
batch mode. 

INPUT DATA 

SIMCOT II data file, with emphasis on the 
last card as follows: 

JJB LAST JB *- Variables 
12845678901234567890 Column count 
75 1 0 <- The data 

In this example, we will simulate bollworm 


damage in which two squares and three bolls are 
damaged by bollworms. 

Step jf, — Execute program and add data file. 

Step 2 . — Program stops on the 75th day and 
asks how many fruit are abscised on day 75. 

Input: 12345 +- Column count 
1 +- Data 

Which fruit? 

Input: 123456789012345 <- Column count 
10 2 4 +- Data 

The fruit at the tenth main-stem node and first 
fruiting-branch node is assigned a 4, which is 
the code for a scar. The reason a 2 is used to indi- 
cate the first fruiting-branch node is that the 1 
fruiting-branch node is where the fruiting 
branch is attached to the main stem. The fruit 
code is as follows: 1 is a square, 2 is a green boll, 
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3 is a mature boll, and 4 is a scar. On a printout 
these codes appear as X, *, #, and 0, respectively. 

Next the program asks if any fruit on the 
vegetative branch will be abscised. 

Input: 12345 Column count 
0 Data 

Do you want the plant printed out in graphic 
form? 


Input: 12345 <- Column count 
1 *- Data (for "no”) 

0 <- Data (for “yes”) 

Are there any more data after today? (Are 
you manually going to abscise any more fruit?) 
Input: 12345 <- Column count 

0 *- Data (program proceeds 

normally) 

1 *- Data (program will ask 

for more abscission 
data) 

What is the next output day (day on which 
more damage will be inflicted or is of special in- 
terest to user) ? 

Input: ,TJB +~ Variable 

12345 «- Column count 
80 Data 


Step 3 .- — Abscise square on day 80 on the vege- 
tative branch with the following set of cards: 


12345678901234567890 

0 

1 


5 2 4 


0 

1 

86 


No abscission on 
main stem 
Number abscised 
on vegetative 
branch 
Location on 
vegetative 
branch and fruit 
code 

Print plant 
More data 
Next output day 


Step 4 . — Abscise boll on main stem on day 85 
with the following set of cards: 

12345678901234567890 

1 

9 2 4 

0 
0 
1 
90 

Step 5 . — Abscise boll on main stem on day 90 
with the following set of cards: 

12345678901234567890 

1 

8 2 4 

0 
0 
1 

95 

Step 6 . — Abscise boll on the main stem on day 
95 with the following set of cards: 

12345678901234567890 

1 

7 2 4 

0 
0 
1 

165 

Step 7 , — Print out plants on desired day (in 
this case on day 105 near the end of the season) . 
12345678901234567890 
0 
0 
0 
0 

The program with the data file as above and 
the data outlined in the above example will grow 
a cotton plant which will lose two squares and 
three bolls due to insect damage. The program 
output with the mentioned data now follows. 
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OUTPUT DATA 


C-XQT CLMCGT.S 

WEATHER FOR COPIAH COUNTY. MISS. .1972 
CONCENTRATIONS .0298 .0006 .0216 .0103 .0078 NSTRES= 

NPARTa-5) .7525 . 0006 . 0002 .2781 .0106 

HOW MANY FRUIT ON MAIN BRANCH WILL BE ABSCISED ON DAY 75? 

WHICH FRUIT ON MAIN BRANCH WILL BE ABSCISED ON DAY 75? 

10 2 4 

HOW MANY FRUIT ON VEG. BRANCH WILL BE ABSCISED ON DAY 75 ? 

0 

DO YOU WANT PLANT PRINTED OUT ON DAY 75? 

0 

IS THERE ANY MORE DATA AFTER DAY 75? 

1 


X 

I 

X 

I 

X 

I 

* 

I 


X 

I 

X 

I 

X 

I 


X 

I 

X 

I 

X 

I 


X 

I 

X 

I 


=-0=0=0“Q-Q=0=0~0~0=:0==0~0-0=0=G=0=0=Q- 


I 

X 

I 

X 

I 

X 


I 

X 

I 

X 

I 

X 


I 

X 

I 

X 


I 

X 

I 

X 


DAY 75 CH20 STRESS 1 H20 STRESS .0 

SQUARES LOSJ 0. .. BOLLS LOST 0 . LAI 3.07 


SOLAR RAD 627. PLANT UT 46.32 
PHYSIOL. DAYS. _ 6 0_ BLOOMS LOST 0 


LEAF UT 25,22 MA INSTEM NODES 18 # SQUARES 38 # GREEN BOLLS i # SITES 42 


0 

I 

X X 

I I 

X X X X X 

I I I I I 

ssr0=0s0s:0“G = O“O“G~O~0“O = O = 

I I I I I 

X X X X X 

I I 
0 0 

VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


THIS IS DAY 75 WHAT IS THE NEXT OUTPUT BAY? 

80 

CONCENTRATIONS .0262 .0078 .0072 .0082 .0077 N3TRES* 
NP ART <1-5; .7524 .0078 .0009 .2792 .0106 

HOW MANY FRUIT ON MAIN BRANCH WILL BE .ABSCISED ON DAY 80? 

HOW ^ MANY FRUIT OH VEG. BRANCH WILL BE ABSCISED ON DAY 80 ? 

WHICH FRUIT ON VEG. BRANCH WILL BE ABSCISED ON DAY 80? 

DO YOU WANT PLANT PRINTED OUT ON DAY 30? 

0 

IS THERE ANY MORE DATA AFTER DAY 80? 


X 

I 

X 

I 


X 

I 

X 

I 


==0=0=0=0-0=0=0=0=0=0=0=0-0=0-C|“0 1 =0=0=0=0= 


I 

y 

r 

x 


DAY 80 CH20 STRESS 2 H20 STRESS 
SQUARES LOST 0 BOLLS LOST 0 LAI 


.5 SOLAR RAD 547. PLANT UT 54.75 
3.50 PHYSIOL .DAYS 65 BLOOMS LOST 0 


LEAF UT 28.76 MA INSTEM NODES 20 S. SQUARES 43 # GREEN BOLLS 4 # SITES 52 



OUTPUT DATA— Continued 


0 

I 

X X 0 

I I I 

* X X X X X 

I I I I I I 

e=i0«!0s0*0*0»0=0«0*0»0a0®0»0=0= 

1 I 1 I I I 

X X X X X X 

I I 
0 0 
I 
X 

VEGETATIVE BRANCH GROW IMG FROM NODE 6 OF THE MAIN STEM 


WHAT IS THE NEXT OUTPUT DAY? 


THIS IS DAY 80 
85 

CONCENTRATIONS . 0234 .0304 .0063 .0069 .007? HSTRES= 

NPART<l-5> .7361 .0304 .0032 .2792 .0106 

HOW MANY FRUIT ON MAIN BRANCH WILL BE ABSCISED ON DAY 85? 

WHICH FRUIT ON MAIN BRANCH WILL BE ABSCISED uN DAY 85? 

9 2 4 

HOW MANY FRUIT ON VEG. BRANCH WILL BE ABSCISED OH DAY 85 ? 
0 

DO YOU WANT PLANT PRINTED OUT ON DAY 85? 

0 

IS THERE ANY MORE DATA AFTER DAY 85? 

1 


X 

I 

X 

I 


SS3 0=0=0=0=0=0=0=0=0«0=0=0=0«0*0=0=0*0«0~0^ 


DAY 85 
SQUARES 


I 

0 

1 
X 
I 

X 


I 

0 

I 

X 


CH20 STRESS 2 H20 STRESS 


LOST 


LEAF WT 31.44 


2 BOLLS LOST 0 
MA INSTEM NODES 2 


. 5 

LAI 3.82 
0 # SQUARES 


SOLAR RAD 561, PLANT WT 62,74 
PHYSIOL. DAYS 70 BLOOMS LOST 0 
33 # GREEN BOLLS 8 # SITES 52 


0 

I 

0X0 
I I I 

* 0 X X X X 

I I I I I I 

=S=0 B 0=0=0=0=0 = 0=0~0=0= ! 0= ! 0=0 S5 0= 

I I I I I I 

* X 0 X X X 

I I 

0 0 


VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


THIS IS DAY 85 WHAT lb THE NEXT OUTPUT DAY? 

90 

CONCENTRATIONS .0213 .0659 .0062 .0062 .0078 NSTRES- 2 

NPART < 1-5) .7076 .0659 . 0068^ .2777 -0104 __ 

HOW MANY FRUIT ON MAIN BRANCH WILL BE ABSCISED ON DAY 90? 

1 

WHICH FRUIT ON MAIN BRANCH WILL BE ABSCISED ON DAY 90? 

8 2 4 

HOW MANY FRUIT OH VEG. BRANCH WILL BE ABSCISED OH DAY 9 0 ? 

0 

DO YOU WANT PLANT PRINTED OUT ON DAY 90? 

0 

IS JHERE ANY MORE DATA AFTER DAY 90? 

X X 

I I 

* 0 X 

l I I 

* * 0 0 X 

I I I I I 

* 0**0 


X X 



OUTPUT DATA— Continued 

i i i r r i r 

=5kO=0-O=O=O=O~Q-O-O=O=O-O=0»O™O*O=G=O“G-G” 

I I I I I I I 

* 0 o GO XX 

i r i i i 

* * o X X 


I 

X 

BAY 90 CH20 STRESS 2 H20 STRESS .0 SOLAR RAD 492. PLANT LIT € 7*95 

SQUARES LOST 0 BOLLS LOST 0 LAI 4. 04 PHYSIOL, DAYS 75 BLOOMS LOST 0 
LEAF WT 33,25 MA INSTEM NODES 20 # SQUARES 19 # GREEN BOLLS 12 # SITES 52 


0 

I 

0 X 0 

1 I I 

* 0 * 0 X X 

r i i i i i 

a-0®0«0«0*0*0*0=0*0*0=0=0-0=0* 

I I I I I I 

* 0 0 Cl X X 

I I 
0 0 
I 
X 

VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 


THIS IS DAY 90 WHAT IS THE NEXT OUTPUT DAY? 

95 

CONCENTRATIONS .0196 . 0896 .0049 .0056 .0076 NSTRES® 4 

HP ART < 1-5) , 6683 . 0896 .0091 .2779 .0104 

HOW MANY FRUIT OH MAIN BRANCH WILL BE ABSCISED ON DAY 95? 

WHICH FRUIT ON MAIN. BRANCH WILL BE ABSCISED ON BAY 95? 

7 2 4 

HOW MANY FRUIT UN VEG. BRANCH WILL BE ABSCISED ON DAY 95 ? 

0 

DO YOU WANT PLANT PRINTED OUT ON DAY 95? 

0 

IS THERE ANY MORE DATA AFTER DAY 95? 

1 

0 X 

1 I 

* O 0 

I I I 

*#000 
I I I I I 

* 0**000 
I I I I I I I 

== 0 = 0 = 0 = 0 ^ 0 = 0 = 0 = 0 = 0 = 0 = 0 « 0 = 0 = 0 = 0 = 0 ^ 0 = 0 = 0 = 0 =^ 

I I I I I I I 

0 0 0 0 0 0 X 

1 I I I I 

* * 0 0 0 

I I I 

0 0 0 

I 
0 

DAY 95 CH20 STRESS 1 H20 STRESS 2.0 SOLAR RAD 635. PLANT WT 72.22 
SQUARES LOST 0 BOLLS LOST 0 LAI 4.28 PHYSIOL. DAYS 80 BLOOMS LOST 0 
LEAF WT 35.20 MA INSTEM NODES 20 # SQUARES 4 # GREEN BOLLS 11 # SITES 52 


0 

I 

0 0 0 

I I I 

* 0 * 0 0 0 

I I I I I I 

*=OsO“0=0=G*0=0<)=0=0*0*0=0*0* 

I I I I I I 

* 0 0 0 0 X 

I I 
0 0 
I 

VEGETATIVE BRANCH GROWING FROM NODE 6 OF THE MAIN STEM 
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OUTPUT DATA— Continued 


THIS IS DAY 95 WHAT IS THE NEXT OUTPUT DAY? 

165 

CONCENTRATIONS .0205 .0955 .0015 .0014 ,0051 NSTRES-1 

NPART<1~5> ,7840 . 0955 .0090 .1780 .0099 

HOW MANY FRUIT ON MAIN BRANCH WILL BE ABSCISED ON DAY 165? 

0 

HOW MANY FRUIT ON VEG. BRANCH WILL BE ABSCISED ON DAY 165 ? 

0 

DO YOU WANT PLANT PRINTED OUT ON DAY 165? 

0 

IS THERE ANY MORE DATA AFTER DAY 165? 



DAY 165 CH20 STRESS 0 H20 STRESS .0 SOLAR RAD 402. PLANT WT 88.47 

SQUARES LOST 0 BOLLS LOST 0 LAI 4.66 PHYSIOL. DAYS 139 BLOOMS LOST 0 
LEAF WT 38.29 MA INSTEM NODES 25 # SQUARES 14 # GREEN BOLLS 0 # SITES 66 


»aO«0*0=0»0«0*0“0-0«0“0=0=0*0* 
I I I I I I 

# O 0 O 0 0 

I I 
O 0 


I 

0 

VEGETATIVE BRANCH GROWING FROM NODE 


OF THE MAIN STEM 


YIELD/ACRE 1.272 EMERGENCE DATE 125. GROWINGDAYS 172 LATITUDE 34.0 
# OF GREEN BOLLS 0 # OF OPEN BOLLS 5 SOIL H20 CAPACITY 1.69 
H20 RUN OFF .48 ROW SPACING 101.6 # OF PLANTS/ACRE 41000. 
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PART 5.-HARVSIM: A SIMULATION OF 
COTTON HARVESTING AND GINNING 

By James W , J ones, 1 2 Rex F. Col wick,- D. F. Wan jura," and Elmer B. Hudspeth' 


DESCRIPTION 


HARVSIM simulates harvesting, transport- 
ing, storing, and ginning- of cotton from a farm 
in a gin community. See figure 5-1. The focus is 
on a particular farm where field sizes, cotton 
maturity rates for each field, and yield of each 
field are descriptions of the crop. The harvest- 
ing and hauling system is specified by the num- 
ber, capacity, and speed of harvesters and the 
number and capacity of trailers available to the 
farmer. The rest of the cotton input to the gin 
from other farms is simulated by random lumped 
harvesting rates derived from past gin records. 
The ginning rate is specified, and an option ex- 
ists for altering the gin schedule. Breakdowns of 
harvesters and the gin are simulated, and idle 
harvester time due to trailer shortages is con- 
sidered. A trailer hauler takes one or two trail- 
ers to and from the gin. 

The operator specifies the date when harvest- 
ing is to start by selecting the percentage of the 
crop open when harvesting is to start. Rainfall 
is an input to the model, and depending on the 
amount of rainfall, harvesting is stopped for 0, 
1, 2, 3, or 4 days with certain probabilities. Daily 
trailer arrivals from the entire gin community 
are calculated and include arrivals from the farm 
under study. The system status is updated every 


0.1 hour. Harvesting is simulated for each harv- 
ester, each harvester having been assigned to a 
field, and a trailer is assigned to each harvester 
for filling. Harvester breakdown and repair 
times are simulated. Harvesting continues until 
all fields are harvested once unless a trailer 
shortage prevents the harvester from unloading. 
Farm management determines whether to harv- 
est each field twice and specifies a value (in 
bales per acre remaining in the field) below 
which the field will not be harvested a second 
time, 

A hauler transports one or two full trailers to 
the gin and returns trailers to the farm. When 
trailers from the farm arrive at the gin, they 
are placed in a first-come, first-served queue. A 
daily operating schedule for the gin is selected, 
based on gin backlog. Breakdowns and repair 
times for gin equipment are simulated, An eco- 
nomic analysis calculates costs for harvesting, 
transporting, and ginning. 

HARVSIM was validated with 1-year data 
from the Texas High Plains. The simulated and 
observed harvesting rates and trailer require- 
ments compared well for the two farms that 
were monitored. 


LIMITATIONS 


I-IARVSIM was intended for comparing cur- 
rent methods of handling seed cotton with alter- 
nate methods that include seed-cotton storage 
prior to ginning. The model depicts the current 
trailer method and focuses on an individual 
farm, but with estimates of harvested cotton 


1 Agricultural engineer, Southern Region, Agricul- 
tural Research Service, U.S. Department of Agriculture, 
P.O, Box 5465, Mississippi State, Miss. 39762, 

2 Research lender, Cotton Production Research, South- 
ern Region, Agricultural Research Service, U.S. Depart- 
ment of Agriculture, P.O. Box 5465, Mississippi State, 
Miss. 39762. 


from the rest of the gin community, A second 
model was developed (I-IARSTOR) to simulate 
storage of seed cotton on all farms in a gin com- 
munity and will be reported later. 

HARVSIM is limited to studying individual 
farm harvesting decisions and the effects of 
these decisions on costs, harvester idle time, 

a Agricultural engineer, Southern Region, Agricul- 
tural Research Service, U.S. Department of Agriculture, 
Lubbock, Tex. 79401. 

* Location leader, Southern Region, Agricultural Re- 
search Service, U.S. Department of Agriculture, Lub- 
bock, Tex. 79401. 


83 



labor requirements, etc. Farm decisions through- 
out a gin community can also be studied, but the 
lumped gin input will have to be altered to reflect 
that change. For example, one could study the 
effect of a constant number of trailers owned by 
the gin and used on a first-come, first-served 
basis by changing the community harvesting 
rates to reflect that process. 

The economic analysis for the gin is based to- 
tally on High Plains gin data developed at Texas 


Technological University, Lubbock." A more de- 
tailed economic analysis of gin costs is needed to 
make the model general. The harvesting-hauling 
economic analysis is based on American Society 
of Agricultural Engineers cost figures. 

* San die, W. IX, Smith, M. L., and Fowler, Mark. 1970. 
An industrial engineering study of the operations 
through which cotton passes between the farm and the 
mill. Final report on a Cotton Production Institute Proj- 
ect 68-114. 284 pp. Texas Technological University, Lub- 
bock. 



FIGURE 5-1. -Simplified flow chart for HARVS1M. 
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ACDELT 
ACS (K) 
ACST 
AIDT 

AR 


ARPH 

BGND 

BH 

BKLG 

BLLS 

CCOT 

CDEP 

CFLBR 

CGIN 

CGLBR 

CHARN 

CHAUL 

CHL 

GINS 

CINT 

CLBR 

CLOSE 

CLUB 

COTT(K) 

COTTT 

CTAX 

CTLS 

CTR 

DGIN 

ULAY 


EPP 

ENQ 

ENT(JK) 

PLDPLG(K) 


POX 

GAMT 

GCPB 

GDT 

GINAR 

GOP 

GRTE 

GTO 

HAMT(J) 

HARG 

HARTOL 

HPH 

IARFLG 


DEFINITION OF TERMS 


Acres harvested in one time increment. 
Number of acres in field K (IC = 1—50) . 
Total acres on farm. 

Amount harvested in one time incre- 
ment. 

Bales arriving at gin today from rest 
of gin community. 

Arrival rate in bales per hour. 

Total bales ginned. 

Probability of harvester breaking down 
within a time increment. 

Bales in gin yard not yet ginned. 

Total bales harvested from this farm. 
Cost per pound of lint. 

Depreciation cost, harvester. 

Cost of farm labor for year. 

Total gin cost per year. 

Cost of gin labor for unloading system. 
Total harvesting cost per year. 

Total yearly cost for hauling. 

Cost per mile to operate pickup hauler. 
Insurance cost, harvester. 

Interest cost, harvester, 

Cost per hour for labor. 

Percentage of cotton loss 30 days after 
boll opening. 

Lubrication cost per year, harvester. 
Amount of cotton remaining in field K, 
Total seed cotton on farm. 

Cost of taxes per year (harvester). 

Cost per trailer per year. 

Total trailer cost, all trailers, 

Daily gin volume. 

Number of days harvesting delayed due 
to rain, 

Efficiency of harvester. 

Time when hauler is to arrive at gin. 
Time trailer JK arrives at gin. 

Harvest status for field K (0 — not yet 
harvested; 1 = harvested once; 2 — 
harvested twice). 

Percentage of gin volume arriving to- 
day, excluding farm in question. 
Amount ginned during one time incre- 
ment, 

Ginning cost per bale, from study cited 
in footnote 5. 

Repair time for gin. 

Midseason daily average gin arrival rate 
if user wants to specify this. 

Time gin starts running after break- 
down. 

Ginning capacity in bales per hour. 

Gin turnout in percent, 

Pounds of seed cotton in harvester J, 
Purchase price for harvester, 

Tolerance for simulating when the harv- 
ester dumps the cotton. 

Hours of harvester operation. 

Flag for reading in gin arrival rate 
parameters or simulating (1 — read 
in, 0~ simulate), 


ICNT 

IDAL 

IDAY 

IDL(J) 

IDT 

IFIELD(K) 

IFK 

IFLAG(K) 


IGFLG 

IGSTRT 

IGT 

IHARV(J) 

IPIEND 

IHLR 

IHSTRT 

ILAST 

IMID 


1NOTIM 

IQN(JL) 

IQUIT 

TRAIN 


IRDA 
IRTRN 
ISH (JFK) 


ISTART 

ISTRT 

ITACS 

JFK 

JFLAG(J) 


KTTjIZ 

LBH 

LIFE 


Counts empty trailers in gin yard be- 
longing to this farm. 

Days from first open cotton, 

Day number. 

Total idle time due to trailer shortages 
for harvester J. 

Time counter during day; each incre- 
ment is 10 minutes. 

Harvester number assigned to field K 
for harvesting. 

Field DO loop counter. 

Trailer status flag: 0 —waiting to be 
filled, 1 — being loaded, 2 = trailer full, 
3 — in transit to gin, 4— in gin queue, 
5= empty at gin, and 6 = trailer on 
way home. 

Gin operating flag. 

Flag for reading (IGSTRT = G) or cal- 
culating gin and harvest starting 
dates (IGSTRT -1). 

Number of time increments the gin op- 
erates today, at 10 minutes each, 

Field number assigned to harvester J 
for harvesting (a pointer). 

Time of day to stop harvest. 

Trailer hauler status: 0==on farm, 1 — 
on way to gin, 2 — at the gin, 3— on 
way to farm. 

Time of day for starting harvest (0 = 
6:00 a.m., 10—7:00, etc; daily time 
increment— 0.1 hour), 

Number of days required for season to 
“tail off" after arrivals start slowing 
down at end of season. 

Average number of days for arrivals 
occurring at the midseason rate, total 
gin community. 

Number of current harvest, 1 or 2, 

Time that trailer JL is ginned. 

Number of harvesters completed harv- 
esting for the year. 

Flag for rending rain (IRAIN— 1) or 
simulating it (IRAIN = 0), (It must 
be equal to 1 in this program.) 

Julian days of rainfall input. 

Time that hauler returns to farm. 

Time when harvester starts harvesting 
after a breakdown (current time plus 
repair time) . 

Day when harvest is resumed after a 
rain, 

Number of days required for gin arrival 
rate to reach midseason average, 

Total acres harvested to date. 

Harvester counter, 

Harvester status flag: 0 = harvester can 
dump load into harvester and l=idle 
harvester. 

Number of trailers hauler pulls to gin 
this time, 1 or 2. 

Pounds of seed cotton per bale, 

Years for depreciating harvester, 
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MASTRT 

First day of open cotton, 

SAVCOT 

MATRTE (K,I) Percent of cotton open on day I (1 = 1-50 



days after MASTRT for field K (K~ 

SORT 


1-50). 

SMALY 

NA 

Number of days gin arrivals is increas- 
ing in trend ( = ISTRT if read in). 


NB 

Number of days before gin receipts show 

SV 


decline at end of season ( = IMID if 

SYA 


read in) . 

TACRE 

NC 

End of gin season ( = ILAST if read in ) , 

TACS (IC) 

NDAY 

Number of days charged for ginning. 


NFLD 

Number of fields on the farm, ranked 

TAMI(K) 


in order of earliness, 

TCAP 

NGLBR 

Number of gin laborers used for unload- 

TCN 


ing system. 

TCPB 

NHAUL 

Number of trips (total) made to gin. 

TENQ 

NHVS 

Number of harvesters on the farm. 

NOFTIM 

Number of harvests per field, 1 or 2, 

TIDT 

NRAIN 

Number of days of rainfall to read. 

TNBLS 

NSGN(K) 

Harvester number assigned to trailer K, 

TQO 

NTH 

Total number of days harvesting, includ- 

TRD 


ing rain days, 

TTRIP 

NTLS 

Number of trailers on the farm. 


NYR 

Number of years to be simulated. 

VEL 

PSTART 

Percentage of bolls open for starting 


QO 

harvest. 

VOL 

Theoretical acres per hour, 

XMI 

R 

Rainfall on day in question. 

xo 

RFIN(IRDA) 

Rainfall amounts on day IRDA. 


RL(K) 

Row length in field IC (I( = l~60). 

X, RNX 

RO 

Probability of gin breakdown during 

YA(K) 

RT(I) 

one time increment. 

YAK 

Time trailer I is scheduled to return to 

YLO 


farm. 

YLOS 


Temporary variable to store amount of 
cotton remaining* in each field. 

Variation about ginning rate. 

Lowest yield such that if a field 1ms less 
than SMALY bales per acre in it, then 
it will not be harvested. 

Salvage value of harvester. 

Standard deviation of YAK, 

Actual time required per acre. 

Total acres in field K harvested during 
current harvest. 

Amount of seed cotton in trailer K, 

Trailer capacity. 

Total cotton harvested to date. 

Total cost per bale harvested on farm. 

Total time elapsed when hauler arrives 
at gin. 

Total time increments. 

Total arrivals at gin in bales. 

Theoretical time per acre. 

Time to drive to or from gin, 

Time required for a harvester round 
trip in field. 

Average harvesting velocity in miles per 
hour, 

Gin community volume in bales. 

Miles to the gin. 

Amount held by each harvester in 
pounds. 

Random numbers, 

Yield per acre in field TC (K~ 1-50), 

(Dummy) yield that has opened. 

Loss of cotton from a field. 

Total lost cotton, accumulated. 


INPUT/OUTPUT 


Card 1: Col. 1-5 
6-10 
11-15 
16-20 
21-25 
26-35 
36-45 
46-55 
56-65 
66-75 

If NFLD is 6: 


Input 

NYR (Integer) 
NIIVS (Integer) 
NTLS( Integer) 
NFLD (Integer) 
NOFTIM (Integer) 
XMI (F10.2) 

GTO (F10.2) 
CLBR(F10.2) 
GRTE (F10.2) 
SMALY (F10.2) 


Cards 2 through 7; 1 card for each field. 

Col. 1-10 ACS(K) (F10.2) 

11-20 YA (K) (F10.2) 

21-30 RL(K) (F10.2) 

Card 8: Col. 1-5 MASTRT (Integer) 
6-15 PSTART (F10.2) 

Card 9 through 24: MATRE (K,I) arranged in 
F4.2 format starting with field 1; 50 values 
are read in for maturity values for each field 


Card 25: Col. 1-10 
11-20 
21-30 
31-40 
41-50 
51-55 

Card 26: Col. 1-10 
11-20 
21-30 
31-40 
41-45 
51-55 
56-60 

Card 27: Col. 1-5 

6-10 


GTLS 

(F10.2) 

CHL 

(F10.2) 

VOL 

(F10.2) 

IIARC 

(FI 0.2) 

SV 

(F10.2) 

LIFE 

(Integer) 

TCAP 

(F10.2) 

CCOT 

(F10.2) 

VEL 

(FJ.0.2) 

GINAR 

(FI 0.2) 

ISTRT 

(F5.0) 

ILAST 

(F5.0) 

IARFLG 

(Integer) 

IRAIN 

(Integer) 

NRAIN 

(Integer) 


Card 28: As many cards as needed, only if 
rain is read in. 

Col. 1-5 IRDA (day of rain, 
Integer) 

6-10 RFIN(IRDA) (F5.2) 
Repeat as needed on same card 
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and on following cards if 
needed. 


Card 

29: 

Col. 

1-10 

CLOSF 

(F10.3) 




11-15 

THSTRT 

(Integer) 




16-20 

IIIEND 

(Integer) 




21-30 

HARCAP 

(F10.3) 

Card 

30: 

Col. 

1-5 

IGSTRT 

(Integer) 




6-10 

NSG 

(Integer) 




11-15 

NGLBR 

(Integer) 


Output 

1. Number of harvesters, trailers, and dis- 
tance to the gin are printed out, 

2. For each field, the number of acres, yield, 
and row length are printed. 

3. The total cotton to harvest, gin starting 
date, and harvesting starting date. 

PROGRAM SETUP 

HARVSIM is programed in FORTRAN for a 
UNIVAC 1106 or IBM 370 computer. The card 
reader input unit is 1 and the line printer output 
unit is 3. 

The card deck is arranged in the following se- 
quence for a UNIVAC run : 

A. Control cai’ds 

1. @RUN 

2. @ASG 

3. @FOR 

B. Main program deck 

C. @FORcard (in front of each subroutine) 

— Subroutine (s) — 

D. @MAP card 

IN card 


4. Daily gin summary including the number 
of arrivals, bales ginned, backlog, and hours of 
operation. 

5, Breakdowns are printed when they occur 
(gin and harvester) . 

G. Every time a harvester or trailer changes 
status, the change is printed out, for example, 
when a harvester is filled and dumped into a 
trailer, when a trailer returns to the farm, and 
when a trailer is ginned are outputs. 

7. A daily summary is printed for harvest- 
ing and ginning. 

8. At the end of the season, the trailer utili- 
zation is printed for each trailer. The number 
of bales harvested, hours of harvester operation, 
and costs per bale are printed out. 

AND EXECUTION 

E. @XQT card 

— data— 

F. @FIN card 

The @RUN card specifies account number, 
name of run, and the project qualifier. The 
@ASG card assigns space on disk for storing 
the program for future use, The @FOR cards 
cause the main program and subroutines to be 
compiled with the FORTRAN compiler. The 
@MAP card creates an absolute element in ma- 
chine language with all subroutines linked to- 
gether for the run and for future runs if desir- 
able. The @XQT card causes program execution, 
and @FIN signals the end of the program. 
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ooooo onon non nnnnoonnnnnonnonnonnnn 


PROGRAM LISTING 


HARVEST IN6-HAMDL ING Si Mi H ATTON 

ot-AL TUL (4) » HAMT (4) ,FNT(30> *TAMT( 30) *RT(30) ,TF(3n) , Tjnn) *rf t m( 400 
1 ) * ISTRT* JMIOr 1LAST 
DIMENSION X<1) 

IhTEGER TIUT 

ThTEuER FLD^LG ( 50 ) * T FI El M SO > * I HARV ( 4 ) 

TuTEGER IFLAS ( 30 ) * I^N(3n) * 1 SH (4 ) * NSGN ( 30 ) * JFLAG ( 4 ) 

'll MENS I ON ACS (50 ) t YM 50 ) * RL < 50 ) * C0TT < 50 ) *TACS ( 50 ) 

PuAL*4 MA1KTE(50»50) 

eaTA I0L/4*0 < /»HAMT/4*G ./»ENT/3O*0. /» TAwT/30*n./.RT/sn*O./»Tr/ 1 n*0 
1 ./ »TT/30*U./ 

OAT A TIOT/U/, JFL AG/4+0/, I FLAG/30+0/, IOM/30+0/ * RE TN/400+O , 0/ * 

HbH /4+U/*NSGN /30*0/»FL(JFLG/5n*0/ 

DATA IHARV/4 + 0/* IFIelD/ 50 + 0/* TACS/5n+0.n/*COTT/50*0 .0/ 

1*71 RAINFALL DATA FOR LUBBOCK* TEXAS 
ms>HIFT=2 

TriE FOLLOWING STATEMENTS INITIALIZE VARIABLES 
!fH=l 

nnTA nhaul/o/* ihlr/o/* irtrn/u/ 

DhTA ItiD/0/ *BGND/0,/ ,TNHL5/0 . / * RKLG/0 . / * GOP/O . / * TSTART/0/ 
re-AD IN VARIABLES For THIS SIMULATION 
m f RrNUMBER OF YEARS TO RE SIMULATED 

nils=numbilk of trailers he owns 

MhVS=NUMBtK OF HARVESTERS FARMER OWNS 
ACSlK) - NO. ACRFS IM FIELD K 
Ya(iO<” average YIELD PER ACRE IM FlFLD K 
(ADJUSTED WHEN HARVEST OCCURS) 

RL(K) - ROW LENGTH IN FIELD K. 

COTT(K) - AMOUNT OF COTTON RFMAIMING EACH FTFLD 

ywi=average dist. to gin 

GIO=GIN TURNOUT 

clbr=la«oh COST per hour 

GRISHIN CAPACITY PFR HOUR* RATFD 

c^ot=Cost per lr. or lint lost 

NOFTIM - NO. of TIMES TO HARVEST* 1 OR 2. 

I NOT I M - CURRENT HARvfST* 1 = FIRST* ? = SFOOMD TIMp 
MFLD - NO, OF FIELDS ON THE FARM. 

MASTRT - STARTING DAY NO. FOR READ I*i MATURITY CURVES. 
MATRTE,d*K) " MATURITY RATE* PERCENT OF FINAL YIFlh oPF k| 

ON DAY. K , FOR FIELD I . 

SMALY - SMALLEST Yltio THAT WE WILL HARVEST* >=0.0 
IKAIM - PlAG FOR READING IN PAIN oR SIMULATING IT, 

. 0 = SIMULATED 1 = READ Iu 

UkAIN - NO. of rainfall DAYS TO Rp AD IN, 

IHARV(J) - field NO. A5SIGNED TO HARVFSTER J. 

FLDFIG(k) -HARVEST status for FI FLO 

Q = NOT YET HARVESTED 1 = HAPVFSTED 1 TTMf 
,2 = HARVESTED 2 TIMES 

TACS(K) - TOTAL ACRES COMPLETED HARVESTING* FIELD K, 

FOk THIS PARTICULAR HARVEST. 

UvIlIT - NO. OF HARVESTERS RETIRED FOR THE SEASON 


i FuKaaT<SIS I *' , SF 10 H 2?'' TLb ' ,lFLr| ' N0F ' TIV| ' XMl * GT0 ' CLRP * GRT F * SMALY 
Pc.A[)< 1 r 1 1 11 ) ( ACS ( K ) *YA(k) * KL(K ) *K-1 * NFLD) 
liii format (3fiu . 2 ) 

n L.AD ( 1 * 1 1 4 u ) MASTPT,PSTART 
114u FuRMAT<T5*hl0.2) 

* f 1 ".= 1 

XU)=0. 62412 

ot,AU(l*lll2) ( <MATRT r (I*K) *K = 1*50) * 1 = 1 * NFLO ) 
lllci FuRNhT (20)- 4 .2) 

Ri_AD ( 1 » Sol ) CTLS * CH|„* VOL.HARC » SV *LIFp 

MU *427) TCAP,CC0T*vfl*GINAR* ism* I»ID* HAST, lAPFLG 
elAu (1*760) IRAIN*NI>AIN r 

7 6 Li F^h,.lAT(?It>) 

TE (IKAIN.LU.1) REAU(1*7(S1) (IRDA*RFlM(Ipr>A) *1 = 1, MR AIM) 

76a FUKMAT(4{ lS*F5.2) ) 


IvaUIT = U 

SOI ruRMA T (SF10.2* I5*Fln,2) 
427 FuRMAT(4FlU.2*3F5. I), 15) 
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PROGRAM LISTING— Continued 


ThOT1M=1 

Ta=7B347 

TLAP=(TCAP*479./GTo) * lun. 

fallowing stmt* accounts for extractor cotton 

Gi\TC=GHTE+GRTE* ( 5.8333* (OTO-21 .3) /lOf). > 


Alo 

ftlH 

1 

Gli 

1109 

1113 


YL.O=0*0 
YuOS =0 » 

Wi'lTE '3*6lU ' 
FoKMATt *l'*lOX* 
'•'It ITE ( 3 * 6l4 ) 
format ( * o» *4x* ; 

“ITsTgiTf"' ’ 


'HARVFST-GIN FOP N.r, 


759 


STATE FXAMPLE* ) 

NO.HAPV, NO. TRAILERS TRAILER C AP. 

_ "IIVS*HTLS*TCAP* XMI 

FORMAT (* 0 , * 21 X*l 3 *UX*l 3 »PX*F 7 . 1 r 8 XiF 5 . 1 r /) 

WKl TE ( 3* 1 109 ) 

FuRMATT’O* *?X* *FlELP * * lSX * • ACRES' f 15X * ♦ YIEL D * * 1 OX* • Row LENGTH • > 
mMTE(3*1113) ( IFK* AOS ( I FK ) * YA ( IFK > * RL < I FK ) » IFK = 1 > NFI.O ) 

FORMAT ( • • * I5*7X,Fl4,2*5X*F15.2*3X*F15 t ?) 

s • art a new year 

T IR = P 

RuAO ( 1 * 759) 


FoRMATjtFlO. J»^5».F10 ± 3)’ 


CLOSF* IHSTRT* iheno*harcap 


lnoo 
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AND THF HARVEST STArT T Mg DAY 


CLOSF~= COTTON LOSS' FACTOR 
INSIST = BEGIN HARVEST (0 IS 6!00 A.m.) 

IHEND = STOP HARVEST. 

TIR=IYR+1 

TON IS TOTAL COTTON HAKV THIS YEAR 

tiacs is total acres marv this year 

TON=0. 

SuLECT COMPUTES THE GIN STARTING DATF* 
ni_A0ll*75l) IGSTRT*'iSG,MSH*NGLBP 
FORMAT! 41 5) 

AoST~0 
CoTTT=0 
Tl ACS=0 

Oo 1114 IFk=1*NFLO 

COTT(IFK>=IACS(IFK)*YA(TFK)*100 .0/Gto) *479.0 
A0ST=ACST+ACS( IFK) 

1114 CoTTT=COTTT+COTT{IF' / ) 

IT (IGSTPT.EO.l) GO TO 7sn 

CmLL SELECT ( NSG* NSH* X* lx * PSTART * MASTRT , MATPTF> 

••*n 1 Tfc. ( 3 * 6U ) NS6* NSH* COTTT 

format ( • '*'gin starting day is* *14*//* *hharv. starting 
1I4*//*'TT0TAL COTTON to HARVEST IS* rFln.l* »P 0 ll*'PS' ,//) 
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OAY TGI, 


c 

c 

c 

c 

c 

c 


ASSIGNS HARVESTERS To 

ifielo <k) - harvester 
no ui7 j=i*nhvs 
it IEL0( J) =J 
1117 niARv(J)=J 

Il>AY=OAY no. 

Oo 099 TuAY=NSG*38H 
ToAL-IUAY - MASTRT+1 
IT ( IUAl.GT .50) IDAL=50 


FIELDS INITIALLY 

no. assigned to field k, 


IL.AL - NO. 
OPENING* 


OF DAYS 
MAX. OF 


SINCE 
50 . 


SEEP COTTON STARTFr 


CuTTON DETERIORATION FACTOR* CLOSF 

TT ( IuAY.LT.MASTRT+3n) GO TO 1115 
1 uA0=IUAY-( m ASTRT+ 30)+1 
IT (IuAti.GT.50) IDAO=SO 
Du 111b IFk. = 1*NFLO 
SAVCOT=C0TT(rFK) 

CuTT(IFK)=COTTllFK>*(l.n-(CLOSF*MATPTE(TFKr IDAo) )*( ( AOc; ( JFK ) -T/vOS ( 
1TTK))/ACSUFK) ) ) „ 

Y._0=SAVC0T-COTT ( IFK) 

IF (YLO.LT.U.O) , YLO=0.0 

Ya(IFK)=YA(IFK)*C1.0-ClOSF*MATRTEUFK* IDAO) ) 
lilt) YuOSsYLOS + YLO, 

WhITE <3*1 0778) YLOS 
format t * 

CuNTINUF 


1077b 

1115 


* * *YLOS= * rFlU.-a) 



PROGRAM USTING-Continued 


I0T=0 

OtLAYH IS FOR SIMULATING RAIN AND DFLAYSIN HARV. DlJF To RAIN 
IbTART IS STARTING DAY FOR HARVEST AFTER RAINFALL 
r«LL DLLAYH<X*NN,R» IOAY* ISTART» TRAIN* RFIN) 

TuIS SUBROUTINE CALCULATES ARRIVALS FOR THE OAY AND OFT^RMlMpF 
WHETHER GlN IS RUNNING 
Art=BALES AkRIVEO AT GlN TODAY 

ToFLG=0 MEANS GIN IS OPfRATING) IGFLG=1 means rained OUT 
IF ISTART .GT. IDAY*IAR.GT. 0 AND NO. GIM ARRIVALS FOR DAY 
mday=iday-nsg-( IOAY-NSGI/7 

TrtR=ISTART-IDAY „ . 

CALL ARR(R#X>NN» AR»MDAY, TGFLG*VOL*lARfGINARf ISTRTf IMID. ILAST.TARFL 
1 G) 

IF ( IDAY/7*7-IDAY.EQ.0) AR=0 

IF THERF IS A DELAY IN HARV. DUE TO RAIM» GO TO GINNING 

tn^^if*^*t^^^**^t****ttii***** ***************************** ******* 

FOLLOWING IS GIN MANAGEMENT SCHEDULE BASED ON BACKLOG. 

IoT=l 10 

TF (BKLG.GT.100.ANO.USHIFT.E0.2) IGT=?30 
IF(BKLG.GT,100.) GRTE=lG.a 
if UDAY.GL.NSG+56) TGT= 1 1 0 
IF (IDAY.GL.NSG+56) GRTE=16.8 

4i^t** ******************************** ************************** 
ObIN=0. 

IuT IS TIME COUNTER DURING OAY 
IuT=IDT+l 

TiUT=TOTAL NO. OF TIME INCREMENTS 
TiDT=TIDT+l 

lF(IDAY.LT.NSH.OR.IDAY.LE*ISTART) GO TO 6 
tF(IDAY/7+7-IDAY.EG),0) GO TO 6 

HARVEST BETWEEN THSTrT AND IHEND. 0=6!00 A.M. 
TF(IDT.L£.IHSTRT.0R.I0T.GT.IHENDT GO TO 6 

IF (IuUIT.fc.ti.NHVS) GO To 1123 
'•v/NTIMUF 

CHECK FOR HARVESTERS COMPLETING A FIELD 
Do 1119 JFK=lfNHVS 

tu=iharvTjfk) 


) » COTT ( TU 
n*GTo/47P00.n 


TU=IHARV( JFK) 

IF< IHARV(JFK) .EG.O) GO TO 1126 

IF(TACS(IU ).LT.ACS(IU )) GO TO 1119 

IFIELOITU >=" 

FLUFLGUU , ) = 1 

TF(IN0TIM.L0.2) FLDFLGtW )=? 

TrtCSUU )=o,n 

WRITE (3 1 1130) , IHARVf JF k) p IDAY » FLDFLG ( IU ) »C0TT(T' 

Ym( IU , )=COTT(IU , )/(ACS<IU ))*GTo/4' 

WRITE (3*7111) YAIIU ) 

coRMAT < ' »»'YA * * F 1 0 « 5 ) 

KiARVt JFK>=0 
CuNTINUE 

SELECT NEW FIELD FOR HARVESTFR JFK 

oo 1120 IFK=1;NFLD 

It ( IF I ELD ( IFK 1 » GT ♦ 0 ) GO TO 1120 

IF(YA(IFk) .LT.SMALY) GO to 1120 

IF (MATRTEUFKfIDAL) .LT.n.99.AND.IN0TIM.FO.5>> GO TO 1 l?n 

tF(FLDFLG<IFK).Eq.IN0TIm-1) GO TO 1121 

roNTINUF 

IF(IN0TIM.L0,2 iharv(jfk)=o 

IF ( INQTlM*t0.2) GO TO 11 19 
IF (N0FTIM.E0.1 IHARV ( JFK) = 0 
IF(N0FTIM.E0,1> GO TO lll9 
TIACS=0.0 
TH0T1M=? 

GO TO 1124 
TFlARV < JFK ) =IFK 
TF1FLD<IFK)=JFK 

SELECTED NEW FIELD (IFK) FOR HARVESTFR . (JFK ) 
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i 160 


PROGRAM LISTING— Continued 

TC (IUAL.Gt.SO) GO Tn H ft 1 

II- (MATRTEUEK. IDAL) .GE.n.9999> GO TO llfil 

mhTRtI?IFK^IDA1) = <MATRTF( IFK»IDA1)-MATRTE(IFK.*TDAL) >/<1.0-MATOTF< t 
1 5kStE^!^U 2) MATRTEUFKrIDAlJjIDAl . . 


FORMAT < * ' . 'MAT 

CONTINUE 

continue 

OPENING RATE 
IN THE FIELD* 


' ,rio,s»’ 


IS ADJUSTED TO remaining COTTON 
AFTER FIELD IS HARVESTED 1 TIME. 


11V? CONTINUE 
^ toUIT=0 

no 1122 jFK=lrNHVS r fTxl 

1122 IF (IHARVCJFK ) .EQ.O) IQUTT=IGUIT+1 
IF (loUIT.c-O.NFLD) GO To 1123 
GO TO 4 

1130 fuRMAtV^o' » lOXf 'COMPLETED HARVESTING field NO. ' . TSfSXnOM D A Y * > TS i 

Isa. 'this field has oeen harvester' » i2.ix. ' time* ./* ’ ».*rema t mtng ( 

20 ITON IS ' . E10 • 0 ) 


CK IE ALL TRAILERS ARE GINNED IF ALL COTTON IS HARVESTED 
TAMtI IKGT.SO.O) GO TO 0016 


CHECK IF 
no 5 I — 1 i 
IF (TAMT< ] 
CONTINUE 
Go TO 7 
CONTINUE 


noh=iday 

IF ( IFLAGUC)^EQ'.O.OR.IFLAG( IC) .EG.5.0R.IFLAGCTC) .EG .6> TP ( IC » = 

ITu IC) +0 . 1 
632 Tl(IC)=tf(IC>+0.1 

HARVESTING CALCULATIONS 

FOR EACH HARVESTER. HARVEST DURING AT 

Do fl J=J. «NHVS 

TKIHARV(J) .EQjO) GO TO 0 

It- (TIOT.LT. ISH(J) )G0 TO 6 

RREAK Down OCCURS EVERY 8 HOURS ON AVERAGE AND REQUIRFS 1,2 Hn'i^S 
FOR HLPAlR n ON AVERAGE 
qn=l.-EXPl-0. 1/8,0) 

X(1)=X(1 ) *0192 .*16304. 

CALL RANDU(X.NN) 

IMRNX.GT. bH) GO TO 1061 
SUH=0. . , 

DO 1062 IR=1»4 
Xll)=X(l)*bl 92 .*16304. 

CALL RANDUCX.NN) 

1062 SoH=SljH+xTl) 
r?MX = X C 1 > 

0 IH=12.*AL0G< 1 .-RNX) 

1(163 FORMAT?' i ^M ) (ARVESTER 0 No!»)l4r'PREA!<S DOWN. TlME’.IO.’OP DA v ',tU. 
16*. ’REPAIR TIMERS'. F6.1 .’TIME INCREMENTS’) 

IbH( J) =TIDT+ABS<DTH> 


PwH=pOUMOS OF seed COTTn’i per dale 
L oH=(47o./GTO)*lOO 

YaK=YA(IU )*MATRTE(TU .idal) 

CaLL YA GAuSS(X.NN.SYA.YAK .VYA) 

IF ( VYA.GT.1.25) VEL=S.-1.33*(VYA-1.20) 

no=AC^ES b PER hour?theorftical 

if 0 all^ot!on A has I been E harv? e check on trailer status 
xo=amt helu by ea. MARV. lbs. 

ToO=1./DO,. , 


A=091O.P9/(?.*YEL) 
6-163*4/ ( 2 • *RL ( IU 
Xo=luH+HARCAP 


) / 1200 ' 
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PROGRAM LISTING— Continued 


r=yo.*L«H*VYA/XO 

If (IUT,FQ. b n) WRITE t lfil 0 ) A*B,C * EFF 
lnlu FuHwaTC ' ,3F8. 1 >6X,Ffa,3»6X* 'A,R*C,FFF* ) 

r*i=6uo.n*(rA( iu Umatrteiih »idal>/tcap> 

FfF=A/< (6*/5. ) *< A+B+C+DT) ) 

ThCRE=T00/EFF 

C AoUElT is ACRES IHARV IN PELT A T 

A^UELT- 1 1«/TACRE)*0.1 
r I r r p = ( P l < I U )/6534.)*2. 

C TnAILERS Al^n A HAULFR SrF READY, HAUL TO GIN. 

tirip=tachl*rtrtp 

C If AT THE START OF THIS TIME PERIOD* A HARV, IS FULL, it Is aSsUME 

C 10 BE IDLE 

nil =4 79.0/ (GT0*l300O,0) 

HARTOL=Pll*YAlIU )*RL(IU ) *2 • OfcMATRTF ( TU .10*1 I 

Tf (HARTOL.GT.SQO) HARTDl=500. 

Tr (HAMT(J) .GT.X0-HA"T0L) GO TO 10 
C AiDr=AMT. iM HARVESTER DURING DELTA-T 

AiDT-i 1 » / TACRE ) *0 • 1*VYA+I.BH 
C H«MT( J)=AMT. in JTH HArv. 

HmMT(J)=HAmT(vI)+AIDT 

TmCS( IU )=TACS(IU )+ACDELT 

TIAC5=TTACS+ACDELT 

CoTTdU ) =COTT ( I U )-AI0T 

If (COTT ( IU J.LT.O.n) COTTUU )=n.o 

fUg=TCN,+A10T 

IF the HArv. BASKET IS WITHIN HARTOL LBS 
OF CAPACITY* THEM IT IS 
dumped, OTHERWISE* look FOR NEXT HARV. 

IMHAMT(J) .LE.XO-HARTOL) go to a 

lu CdNTINUF 

LOOK at TRAILERS To SEE IF WE CAN DUMP HQRV. 

CHECKS For empty TRAILERS! IF ONE IS EMPTY, THF FLAO IS SET FOR 
FILLING it 
nw U K=1*NTLS 

: If ( IFLAG(K) .EQ.l . ANO.NSfiN(K) .EG. J) GO TO 12 

11 CONTINUE 

no 37 K=1*NTLS „ 

If (IFLAG(K) .EO.O) NSGN(k)=J 
If (IFLAG(K) .EO.O) IFLAG(K)=1 

Tf (IFLAGOO .EO. 1 . ANn, NSGM(K) .EQ. J) WRITF(3*6nl )V , TD T , TDAY, J 
fSOl FORMAT C ' * 'TRAILER NO. * * 13* 2X* • IS SELECTED TO OF FTLLFD AT TTvF’» 
1I4*2X* 'OF DAY* * 14, 2Y, 'bY HARVESTER* * 12) 

Tf UFLAG(K) .FQ.l, ANO.NSRM(K) .EO.J) GO TO 12 
37 CollTINUF 

UbGN(K)=ASSTGNING THE KTH TRAILER To THF JTH HARV. 

TfLAG=0 MEANS TRAILER WAITING TO BE FILLED 

IFLAG=1 MEANS TRAILER IS BEING LOADFD 

IfLAG=2 MEANS TRAILER IS FULL 

TfLAG=3 MEANS TRAILER IS IN TRANSIT TO GIN 

If LAG = 4 MEANS TRAILFR IS IN QUEUE 

If LAb = S MEANS TRAILER EMPTY AND ON GIN YARD 

TFLAG=b MEANS TRAILTR ON WAY HOME 

Tf DO LOOP COMPLETEn, NO TRAILEP AVAIL. 

.If LAG( J) =0 LETS HARV OUMP 
JfLAG J)=l MLANS IDLE HARV. 

• If LAG< J) =1 
IuL( J)=IDL( J)+0.1 
Go TO fa 
C 

C FILLING THE K+H TRAILER FROM THF J+M HARVESTS 

12 TmMT (K) =TAMT (K ) +HAMT ( J) 

If (TAMT(K) .GT.TCAP-SOO. ) TFLAG<K)=? 

If (IFLAG(K) . EG »2) WRITE (3, 602 )K, IDT 
f,02 FORMAT* ' ', 'TRAILER NO. * , 14 , 2X , » WAS FILLED AT TTMF'»I4) 
c rhECKS for full trailers 

WHITE (3, 64) IDA Y, IDT, J,H A"T (J) *K,TAMT(K) , IHARV < J) ,InL(J) 

64 PuRMAT ( ' » ,6Xr 'DAY* , 14, iTIME* * I4,6X, 'HAPVESTFR MO. * , 1 2 , • MAS ' , Fa . 1 * 
t'uBS. OF SEFD COTTO" BEING DUMPFD INTO TRAILER', 13 ,/»' WH'lCu MOW 
IuhS* ,Fin.l, *LBS. OF SEED COTTON* , 1 OY ,* FIELD NO . • , IS , ftY » • TDL f TJMFs 

1* *F4.0) 

c empties the j+h harv. 

: IhMT ( J) =0 • 

JfLAG< J)=0 
o CollTINUF 


C 
C 

UOlfl 


TnD=D 


92 



o o nno non oonoo 


PROGRAM LISTING— Continued 


Ah TFR HARV. DURING OELU T'» THE TRAILERS ARE F y A w I nF 0 Amo if T w p 
Th (iHLR.NE.n)GO Tfl f, „ 

To SEE IF AMY TRAILfrS LEFT ON FARM i IF SO HF WILL HAUL 1 T P A TL r0 
Do S3 ITzl.NTLS 

II- ( UUIT.Eu.IMHVS.AN’-'.IF-LAGUT) «FQ»2) IFI AG (IT) =3 
rM IFL aG( IT> .EQ.3)GO To 10 
03 CONT1NUF 
IKU =0 

no 17 1T=1 . MTL5 

IKDK-0 

Ir ( IFLAG< IT) ,EQ. 2)TRDK=1 
17 Tr\U=lRU+lRUK 

no r ii2 it=i.ntls 

K I =0 

II- ( IrtO . LT • 2 ) GO To 6 
IMIFLAGIIT) .EG. 2) KT=1 
viT=KTT+KT 

If (KT.EO.l) I FLAG ( IT ) =3 


G 03 ^®? ( nl^: 3 L«PiTF < ?. 603 >.,IT 1 M 


*. 'TRAILER NO. «> I4»2X. 'LEAVES FOR GIN AT T1MF'.I4) 

IF (KTT.EQ. 1) GO TO 
112 CONTINUE 
Gw TO 6 

TiiLK IS ThL PICK-UP DRIVER 
IiiLR = 0 .HE IS ON FARM 
TnLR=t. HE IS ON WAY TO GIN 
I.iLR=2. HL IS AT Giu 
IiiLR = 3. Ht IS ON WAY TO FARM 
lb IHLR=1 

miiAUL=NHAUL+1 , 

TI\U= (XMT/lb. >*10. 

FnO=IDT+TKD+2 „ 

TuNQ=TIDT+TRD+ 2 
no ?3 JK=1.MTLS 
II- UFLAG ( JK) ,NE. 3 )Gn To 23 
FnT( JK)=TLN0 
23 CONT1NUF 

GINNING PORTION OF PROGRAM 
b CONTI NUF 

xP*( IDtIgT . XHSTRT , ANn. IDT . LT . IHEMD) ApPH=( AR/ < THFMD-THStoT) )*» 0. 
IhULS-TNULS+ARPH/IO . 

Tixiu ezTOTAL NO* OF GALES ARRIVED AT GIN. ACCIlMULATFn 
Tn^S LOOP CHECKS FOR TRAILERS ARRIVING DURING THIS n FLTA-T 

Ih ( TIDT^lII f^T^JL) .0R.1FLAG( JL) .NE.G) GO TO ?7 
IF IHLR.EO. 1) IHLR=2 

IF ( 


IF I ImLK.NE. ? ) GO TO 27 
IbT=llUT+2 „„ 


29 


isTtelW.M.KIL"*" T0 FAR " 

lLN=TlMF ( fhF'l+H 3 TRAlLE'R , ENTERS THE GIN OUEUF 
TNBLS=TMBLS+TCAP* (GTO/ 470 OO . T 
GO TO 27 
TFLAG( JL)=4 

I l \\ ) — UKIG— X(l)*An PH* fi.l+nGND+lTCAP*GTO/47 a OO.O) 

Ih { IZ^EO. 2MOM^ JL) = f 'KLG-RNX*ARPH*0« 1 +2 . A* ( TCAP*GT0/4 7 Q<in • 0 ) + pGmO 

71 FCRMAT(5 7 '!»TRAlLErNO:^I4.2X.'ENTFRS GIN 0UFUE A T Tl«r. , 14 ,?X. • 
tOF 3 aY'»I4i». GIN BACKLOG IS " F9 . 1 . ?X . • "ALES ' > 

27 CoNTI NUF 

TF (TIDT.EO.IRTRN.ANn.lHL p .E0.2) IHL»=n 
Tr IbFLG.LQ.l) GO To 99R 
T h* ( T 1 0 T • LT # GOP ) GO TO 9Q°> _ 

oLCuLATFs'GIN L FAILURE°TTMES 9 ANn DOWN TTMES. SFT5 G^P FGP w" r M 

CbLCULATEb GIN^AlL.mt T| A bb s To 0PfrATF A6AT n 

.70=1. -LVP(-0. 1/12.) 

y(l)=xTn*Bl92.*163A4. 

CALL RAMDU(Y.NN) 
rinX=A ( 1 ) 



non 


PROGRAM USTING-Continued 


|HKbX.6T.K0) GOTO TO 

GiN BREAKS 0OWN IF RNX (. rsS THAN PROP. OF FAlLllRF 
SuX=0 . 

0 ^ 1 U 01 I K-l . 4 
Xtl)=x<l )*tsl92.*163R4. 


moi 


ChLL RANOU ( X . NN) 

sux=sux+x!i> 


»I4.2X»*0F DAY* » IU,?V» tBpOAT 0 


r?HX=X(i) 

viTH 10 HERE. IT MEANS 1 HR. AVFRAGF REPAIR TIME 
6uT=10.*AL06(l.-RNX) 

GoP=T JOT +ABS ( GOT ) 

4KITE<3.604) IDT. IOAY.GQt 
604 FORMAT (' '.'GIN BREAKS DOWN AT TIME', 

itime is* »F6 .i»2x> ’time increments* T 

OImLY WHEN IIDT Is G^EATFP THAN GOP OOES GIN BFGIN TO OprRATF AGATN 
30 CUNTlNUF 

rmhoomly computes amt ginned duping at 

SORT=0.f> 

C«LL GAUSS ( X . NN.SGRT . GRTH GAMT ) 

^hMI=GAMT* 0.1 
IHBKLG.lt. 0.1) go to 906 
16 (GAMT.gT.RKLG) GAmT=BkLG 
nolN-DGlN + GAMT 
Bv3ND=BGMD+bAMT 
99o 9KLG=TNPLS-RGND 
997 CONTINUE 
I HPT— 0 

Ti*iPT=N0. TRAILERS READY TO BE HAULED 

checks for trailers being ginned and 

DU 262 1 = 1 » NTLS 
IMIFLAG(I) ,NE.4)G0 TO ?A2 
IH ION( T) .fc>T.PGNn)Gn TO 282 
I FLAG ( I ) =5 
ThMT(I)=0. 


back TO farm. may. 
returned to Farm 


OF 2 


WhITE(3.6US) I» IDT 

>5 FORMAT! * Jr* TRAILER NO. * . I4/2X. ' IS GINNFD. TIME TS*.I4> 
)2 IF ( I FLAG (1) .EG *5) IMPT-IMPT+I 
ICNT=0 

nu 4U i=immtls 
IHIFLAG(I),NE.5)G0 to 4 1 
TF(IHLR.EU.1.0R*lHLR.Eo.3)GO to 41 
TF (IhLR.EU.O.AND. IMPT.E0.1) GO TO 41 
IF(IDT.GT.OO) go To 40 
IuNT=ICNT+l 

Rl (I)=TIDT+(XMI/15.)*10. 
lHlHLR.EG.O)RT(l)=TIDT+( (XMI/15.) *10. )+?. 

IF TCNT.E(J.?.0R.IHLP.E0.2) IHLR=3 
TF ( ICNT.EG.?)NHAuL=' , HAUL + l 
TFLAG(l)=b 

TF(TlDT.GT.RT(I).ANn.IFLAG(I).E0.6) GO TO 
Go TO, 40 
TF LAG j 1 ) =0 ^ 

WKlTL<i»H4)I*IQT»IDAV 


111 


41 
111 

114 FORMAT! *‘T ( '. fRAlLER NO. i . 14 . 2X .* RETURNS TO FAPv AT TlMpt.l4.9Y, 


4U 

99B 


60b 


1 *oF DAY' .14) 

TiiLR=0 
CoNTINUF 
CoNTl NUF 

THIDT.lt. 1GT)G0 TO 20 
IuT=lGT/10 v 
'■1 K I TE (3.60b) 

FORMAT! *0* .//» ' * *32X. 'DAILY GIN SUMMARY*) 
WHlTE(3»6Ci7) 


607 FURMATCo'.1X»'DAY vO. 


6,0t5 

733 

615 


, - NO. ARRIVALS BALES GTNNFD T^TaL BAI.fS 

1 (OTAL RALES CURRENT OPERATING* »/. * *» 12X .' PALFS *♦ 1 OX H T^DaY * » 
17a. ’ RECEIVED* ;7x. ' GINNfO* . 5X» * BACKLOG »» 3X . 'HOURS TODAY'//) 
vmlTE(3.60b) IDAY.AR.DGIN.TNBLS.RGND.BKLG.IOT 
FORMAT!* i.I6rFl2.1,F13.l»F12.0.BX.F8.0.Fll.l .PX/I3.//) 

TF (IDAT.GT. 410. AND. RKLG.LT. 2) GO TO 7 
IF (TTACS.GE. ACST) Go TO 999 
//KITE ( 3 . 733 ) ir> 

format ( * 0 * » 6x * ' daily harvesting 

WI\ITE<3»615) 

format!' 0* »4X» 'HOURS* * 6X» ’TOTAL 
ISA. ’WHICH HARVEST' . 

1/H OPERATION HARVESTED 
Du 612 TH=1#NHVS 


SUMMARY* ) 
ACRfs TOTAL 
HARVESTED* 


COTTON MARVF«;TpP*» 
IDLF TTmF») 
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PROGRAM LISTING— Continued 


fcli *iuITE< 3,Ol3> IH,TTACS*TCM*IOL(IH) .IMOTI*' 

FORMAT ( ’ o* , 2X* I2.2X, *6’ , 7X.F7.2.7X.P9.1 ,9X,FS. 1 *1 lX, I?, / ) 

99q continue 

7 CuNTlNUE 

cils = Cost per trailer per year 

C 1 R = TOTAL COST OP TRAHFRS pep year 

NIIAIJL = NUMBER OF TRIPS HAULER MAKES TO THE GlN 

rnL = COST PER MILE TO DERATE PICKUP HAULING* MOT c^UMTTMG I a«oR 
CnAUL= TO 1AL YEARLY COST FOR HAULING TO GIN 
N I H— TOTAL NO. OF UAYS HARVESTING* INCLUDING RA THY DAYS 
CfL3R=T0TAL COST OF FARM LABOR FOR YEAR 

CoLQK=COsT of gin labor for unloading system at gin 
NoLi3R=N0.0F laborers For this gin unloading system 
gupb=gim cost per bale. from smith updatfd study 

VuL=OlN SEASONAL VOLUME 

IIPH=H0UPS kun per harvester 

ASSUME 3 GAL PER HR AT .M PER GAL. 

ClAX = TAXES/YR. , w 
Cl.UR=LUB. Costs/Year 
cins=insukance cost 
cint=inteklst COST 
CuEP=OEPRECIATION cost 

ChARN=TDTAL COST OF HARVESTING FOR VfAR 
cgin=total GIN COST for year 
T'-PU=T0TAL cost per bale 
Ci~OS=YLOS*CCOT*GTO/1O0. 

r ir=ntls*ctls 


ChAUL=NHAUL*CHL*XM1*2< 
NIH=1+NOH-NSH-(N0H-m* 


-MSHI/7 . , 

CPLBR= (CLUR*fl.*NTH) * (NHVS+2+NHVS/3) 

CbLBR=(CLBK+TlDT/lO. )*NGLBR llri 

G«-PO= 15. 9«+ ( 24028. 6S+2b47.29*GRTE)/BGN0 

hhh= ( i . n/ ( acdelt+io . n ) ) * acst/nhvs 

CHUEL = HPH*0 . 99 
CLU(3=0 . 1 5*CFUEL 
CIAX=0.01*hARC 

C1NT=^h8kc+SV^/2. >*0*07 
CuEP=<HARC-SV>/LIFE 
CkEP= 0 . ni*llARC 

CNARv“CFuEL+CLUB+CT AX+C JMS+CINT+CDEP+CRFP 
CliARV = CHAkV*NHVS 
BLLS=TCN*(GTO/100. J/479. 

CuIN=GCPB*BLLS 

TCPB=GCPB+(ChARV+CTR+CHAUL+CFLBP+CLOS)/PLLS 
WlTE ( 6 . 635 ) 

rYlICJ-TTlia-TEUC) 

83b FuRMAT?»o|YlOX* ’TRAILER T UTILIZATION* »//*4X* 'TRAILER* .fix* ’EMPTY' * 
ft3J l FuRMAT( ' ’ ' .7X.I3.7X.F6. 1 .5X.F9.1 ) 

ln 8 l> tmw 1 * // * ' ' * * HOURS OPERATION °fp BAR 

lVUSTLR-' .F 7 . 2 *//* ' '.'Days LABOR CHARGER FOR harvesting* * is*//, * 

iyrVchaul’. cflrr . CHARV * coin r tcpjj 


SO 2 


FORSifl! QV lox:* ’’YEAR-NO* * 12 * / ’^HAULING COST', AX * 


WKT 

FOK^A I l * U ' * lux * 

1FG.2 */* 'FFARM LABdR COST' * 
1F9.2 r/ * » GblNNlNG COST’, BX * 
lroST PER BALE 15' * F6.2 ,’FOR 
1FU.2.2X* ’BALES' > , 
it- uyr.lt.nyrTgo to ioon 

SlOP 

EHU 


• f »' 2 


5X 

FA. 2 t/t IX 
HARVESTING 


HAULING r AND GIMmTnG’* 


subroutine SELECT (N.M*X,NN*P5TAPT*MASTRT,MATRTf) 

niMENSION MATRTE<5n»5u) 

NSG=GIN STARTING DATE 

muH=HARVESTING STARTING DATE 

xn=avg. gin starting DATF 

viv|=AVG . FIRST HARV. DATF 

SH AND SM ARE MEASURES OF VARIATION 

Xh=2B7. 

XM=3(iB. 



PROGRAM LISTING— Continued 


Si**- 3 * 

ChLL GAIlsStyfMN»SNfXNrG) 

N-6 

no 1 1 = 1 r 50 

Th {^ATRTEU* I) «LT.PSTART)GO TO 1 

M-MASTRT+I+1 

Go TO 2 

1 CONTINUE 

2 rlTURM 
FnL) 


c 


c 

c 


c 


2u 

31) 




61 

71 


quf3ROUTTNt HELAYh ( X • NN * R * IDAY ' 1ST ART # IRAIN,RFlM) 

DIMENSION KFIN<400) .X<11 
R-RAINFALLi INCHES 
IF ( IKA1M.EQ. 1 ) GO To 2u 
CmLL RATN<K>XiNN) 

GO TO 30 
R=RFIN< IOAY) 

CONTINUE 

Xnl=0.b 

SitI=0.1S 

X»\2=1.00 

Srt2 = U. 20 

X»<3=2.0 0 

Sk3=0.40 

The PREC. variables DESCRIBE a DELAY STEP FUNCTION WhErp ST^R 
okEAK points are randomly chosen 

IMR.LT.0.01 ) GO TO 71 

r«LL GAUSS ( X » NN* SRI » XR1 » DLMTl } 

CmLL GAUSS ( X , NN i SR 2 « XR2 , DLMT2 > 

TMR.LT. DLMTl)OLAY=^. 

If ( R ,GT . DLMT 1 . AMD. R . LT, DI.MT2 ) DLAY=4 . 

TMR.GT.DLMT2 OLAY=S. 

TuLAY=DLAY+0.1 

i5TARi=,sT#im,ouv 

If (ISTART-10AY.GT.4) I5TART=IDAY+4 
A MAX DELAY OF 4 DAYS FROM CURRENT DAY 
II- (R.GE.0.U1)WRITE( 3,61> TDAYrR. TSTART 

ruRMATt 'O' i 'DAY NO . = ' > 14 r 4X» * RATN=* » F5. ? , 4X * * DEL A Y IINTtI DAY=* 
CoNTINUF 

return 

EhD 


SUBROUTINE RAIN(R.X.NN) 
dimension xd) 

R-0 . 

Ri-TURN 

EnD 


1 0 


SUBROUTINE ARR(R,X»NN> AR.NDAYi IGrVOLf IAP,SA»NA,Nn»NC, TaRFLG> 
Rj-AL NA » Nl3» MC , 

DIMENSION X < 1 ) 
to=0 


DmTA NBLNK/O/r NSTART/0/ 

TF (NUAY.LT. MSTART) IG=1 
TMNUAY.LT.MSTART)G0 TO 1 
IF (R.GT.O)GO TO 2 
Tl- (IAR.GT.U) GO TO 1 
XA=N0AY~NBLNK , 

IF (TARFLG.EO.l) GO TO In 
SM=140.45b/< ( VOL ) **n ,44?6) 
Sm=3.37 

MA=D . 0 027* VOL-3 . 52-6 , 0 
ml>=10 0 . /SA + 0 .67+NA-? .67 
No=NLs + 8, 

FuX- ( (XA/NA) **2)*SA 


, T4) 
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PROGRAM LISTING-Continued 


it- (ya.ijT,na)fox=sa 

TF (XA*bT.Nb)FOX=< ( ('-C-XAi/fl. )**?)*Sr\ 
Tt- (XA.faT.I'JC)FOX = 0. 

A«K=FOX*VOL/lOO. 

AkS I G— A AR/*; • 5 

ChUL GAUSS ( X > NN » ARS T G< AAf> » AR ) 

It- ( AR.LT.O. ) AR = 0, 

W TO 3 
M-l • b*X ( 1 ) 
tu=N 

NGTAkT=UDAY+N 
i ':l>LNk=NRLNK + 1 
Ah = 0 

3 Rc-TURN 
FhU 


SuBROUTlNt G AUSS ( X » 'IN » S r AM » Y ) 
niMENSION X ( 1 ) 

A= 0.0 

Du 50 1 = 1 » 1 ? 
Xll)=X(l)*til 92 «* 163 n 4 « 

ChLL RAMDO(XfMN) 

Y-X ( 1 ) 

A-A+Y 

Y-(A-6.f1)*b+AM 

-Jt.TURM 

EinD 


5UBR0UTTNL RANDIJ(X»?l) 

DAMRinSIGN Ml) 

K-316227 

\Jis=M*K 

FtlM=N 

R=RN/3435973fl367. 

Yll)=AbS(R) 

U=NK 

RETURN 

rmD 



EXAMPLE RUN 

Input Data 


30b 
(J . OOU 
0.40b, 
0.950, 
0.20U, 
0.900, 
0.000, 
0 . 400, 
0.95U, 

0 . 20u i 
0 . 90 Cl i 

O.OOUc 
0 «40u, 
0 «95u< 
0.20U. 
0.90U. 


. 1 

14 6 

1 

25.10 

U .93 

200.00 

2(1.00 

1.00 

400.00 

5.00 

1.40 

250.00 

15.50 

1.20 

75.00 

51-10 

1.00 

250. On 

30 • 00 

1.00 

400.00 


noO ,u80 
nut) .500 
QoO.950 
.500,400 

900.950 
Oa0.080 
auO .500 
obO . 950 
500. 400 
nuO.950 
iltiO.OflU 
400.500 
ot>0 . 950 
5O0.40U 

400.950 


. 080. 100 
.500.500 
.951.001 
.400.400 
.951.001 
. 000.100 
.500.500 
.951.001 
.400.400 
.951.001 
. 000.100 
.500.500 
.951.001 
.400.400 
.951.001 


• 100 . 100 . 
• 600 . 650 . 
• 001 , 001 , 
•400,400. 
•OOl.OOl. 

• ioo , lou. 
.600,650 . 
. 001 . 001 . 
•400.400. 
.001.001. 
• 100 . 100 . 
.600. 6 5 u , 
•001,001. 
•400,400. 
• 001 . 001 . 


100.100 

700.700 

oOl.OOl 

400.500 

nol.ool 

100,100 

700.700 

nol.ool 

400.500 

nol.ool 

too. 100 

700.700 

noi.oul 

400.500 

nOl.OOl 


. 200.200 
.700.600 
.000.000 
.500,500 
.OOl.OOl 
. 200,200 
.700.000 
.000, 000 
.500.500 
.OOl.OOl 
. 200.200 
.700.800 
.qoo.qoo 
.500.500 
•001,001 


. 200 . 
.800. 
. 000 . 
. 500 . 
.noi, 
. 200 . 
.800. 
. 000 . 
.500. 
• 00 1 . 
. 200 . 
. 800 . 
. 000 . 
.500. 
. 001 . 


?5n , 250 
BOn.900 
OOn.oOO 
500.500 
001. nOl 
250.250 
80n. 900 
OOn.oOO 
500 ♦ 500 
001 .nOl 
25n.250 
ROn.900 
OOn.oOO 
500.500 
001. nOl 


• 30n . 300 
.900.400 
•non. ioo 

.500.500 
.OOl.nOl 
. SOn.300 
.900.400 
.QOn.lOo 
.5on.50p 
.001.001 
.300.300 
.900.900 
.QOn.lOo 
.500.500 
.oot.nOl 


.300. 300 
•?nn .?00 

. loo. 100 

.700.700 
•ool.nOl 
.300,^00 
.900.900 
, loo. 100 
.700.^00 
.nnl. nOl 
.300.300 
.900,900 

.loo. ioo 

.700.700 

.001, oOl 


♦ 350.40 
« 900 , 4 0 
,100,20 
. 800,80 
. 001.00 
. 350.40 
. 900.00 
, 100.20 
. 800.80 
. 001.00 
. 350.40 
.900.40 
.100.20 


108.30 

0 

.059 

7149.00 

13175.00 

3000,00 


1584.00 

o.O 

1 10 
322 ,22 
35u .04 

0.UO2 

1 014 


U .28 

5.0 

3,37 

12 

34 

4? 

1 

3?7 

363 

40 

333 

.15 

.01 

100 

4 

335 .02 

0.800 

336 ♦ 02 

337 

.47 

340 

.36 743 



DAILY HARVESTING SUMMARY 


HOURS 

TOTAL ACRES 

TOTAL COTTON 

HARVESTER 

WHICH HARVEST 

OPERATION 

HARVESTED 

HARVESTED 

IDLE TIME 


1 6 

.00 

.0 

.0 

1 , 


GIN BREAKS DOWN AT TIME 87 OF BAY 319 REPAIR TIME IS -4.2 TIME INCREMENTS 


DAILY GIN SUMMARY 

DAY MO. HO. ARRIVALS BALES GINNED TOTAL BALES 
BALES TODAY RECEIVED 


TOTAL BALES CURRENT 
GINNED' BACKLOG 


OPERATING 
HOURS TODAY 


319 38.1 37.4 90. 


90. .6 11 


98 . 



Output Data— Continued 


DAILY HARVESTING SUMMARY 


HOURS 

OPERATION 

TOTAL ACRES 
HARVESTED 

TOTAL COTTON 
HARVESTED 

HARVEST ER 
IDLE TIME 

WHICH HARVEST 

1 6 

.00 

.0 

. Ci 

1 


JAY HO. HO. ARRIVALS 
BALES 


DAILY GIN SUMMARY 


BALES GINNED 
TODAY 


TOTAL KAi.ES 
RECE IVF.il 


320 39.9 


39.2 130. 


TOTAL BALES CURRENT 
GINNED BACKLOG 


OPERATING 
HOURS TODAY 


129. 


11 


DAILY HARVESTING SUMMARY 


HOURS 

OPERATION 

1 6 


TOTAL ACRES 
HARVESTED 

.00 


TOTAL CO 'I TON 
HARVESTED 

.0 


HARVESTER 
IDLE TINE 


. 0 


UN I CM HARVEST 


1 


DAILY GIN SUMMARY 


DAY MO. HOiHRRIVALS 
BALES 


3.M.ES GINNED 
TODAY 


TOTAL bales 

RECEIVED 


TOTAL BALES 
GINNED 


CURRENT 

BACKLOG 


OPERATING 
HOURS TODAY 


321 84.6 


69.4 213. 


190. 14.4 U 


DAILY 

HARVESTING SUMMARY 

* 


HOURS 

TOTAL ACRES TOTAL COTTON 

HARVESTER 

WHICH HARVEST 

OPERATION 

HARVESTED HARVESTED 

IDLE TIME 


1 fc 

.00 -0 

. 0 

1 


DAY NO. NO. ARRIVALS 
BALES 


DAILY GIN SUMMARY 


BALES GINNED 
TODAY 


TOTAL GALES 
RECEIVED 


TOTAL BALES 
GINNED 


CURRENT 

BACKLOG 


OPERATING 
HOURS TODAY 


333 24?. 5 


357.9 847 


,0 23 


DAILY HARVESTING SUMMARY 


TOTAL ACRES TOTAL COTTON HARVESTER 
HARVESTED HARVESTED IM-t 1 lrlt - 


WHICH HARVEST 


5,98 


10148.9 


.0 


HOURS 
OPERATION 

TRAILERTO^^IS SELECTED^O BE .FILLED ^ IM | 0 4f ll|l °OF SEED COTTON JEH!C t DUMPED INTO TRAILER 2 


WHICH NON HAS ' 2075. 1 LBS. OF SEED COITOH 

“"Stffigh 

WHICH HOW HAS €500. OLFS. OE SKD CiM full 
TRAILER HO. ^ ,^t R ■!_ 

WHICH NOW HAS pQO^.lLBS. Vl SLU'i LUfTuH 
TRAILER NU. 1 LEAVES. FOR 01H AT | *ML ' f 
TRAILER HO. 1 V ENTERS L. IN 0UEUE Al lint 

TRAIL ^AY°334TIME S fr LEC, HARvlsTER|:N0” n lHAS 2 
WHICH NOW HAS 2g9S.0l.BS. OF |F.b.D L.0TTU 

TRAII ' E EAY°334TIMF 84 HARVESr|ft r HO. IHAS 

WHICH NOW HAS 4504. ?LBS. Uh ||E0 CmTOH 
WHICH Rffi ^r! ML 65p.|LB|. H |%.D COTTON 

TRAILER NO. 3 WAS FILLED H AT v TIME R 9 q> jms 

WHICH HOW HAS ^ PfavES^QR GlN^TTIMe™? 
TRAILER NO*. 2 ENTERS GIN QUEUE AT TIME 101 


R 1 !fp A 1 P ‘ T 1ME 1 1 S - 1 ! It! HE 1 INCREMENTS 
REPAIR TIMS IS -lOlOTIME INCREMENTS 

pir8S. s ‘“ 1 COT ™,,!fn I S re "o. ,BTO 


2305.1183* OR SHI, COTTON BEING DUMPED INTO 
field KO. i IDLE Tint 

01 DAY 334 ■ GIN BACKLOG IS_ 6.5 BALES 

24AG.rt.83. OF SEED COTTON BEING WEB UNO 
20-M.4L&? OpSEED^OTTOH^EING^UMPED^ INTO 

238 '-SSj8S. SEE “i“ ,TON ““?i® re »'"" r ” 

9. I BALES 


TRAILER 2 
TRAILER 2 
TRAILER 2 

TRAILER 3 

TRAILER 3 
TRAILER 3 

TRAILER 3 


OF DAY 334. GIN BACKLOG IS 


99 



Output Data— Continued 

DAILY HIM SUMMARY 


DAY NO. NO. ARRIVALS BALES GINNED TOTAL BALES 
BALES TnTiiiv ccrt Turn 


334 


i i 0- 3 


TODAY 
1 08. 0 


RECEIVED 


956. 


TOTAL BALES CURRENT OPERATING 
GINNED BACKLOG HOURS TODAY 


955 


11 


DAILY HARVESTING SUMMARY 


HOURS 

OPERATION 

i b 

YL OS- 


TOTAL ACRES 
HARVESTED 

16.72 


TOTAL COTTON HARVESTER 
HARVESTED IDLE TIME 


27889.5 


.0 


WHICH HARVEST 
1 


.00 


DAILY GIN SUMMARY 


DAY NO. NO. ARRIVALS 
BALES 


BAl.ES GINNED 
TODAY 


TOTAL BALES 
RECEIVED 


TOTAL BALES CURRENT 
GINNED BACKLOG 


OPERA! IMG 
HOURS TODAY 


360 


180.5 


361.9 


3010. 


3000. 


10,3 


•DAILY HARVESTING SUMMARY 


HOURS 

oft.rrtjuii 


TOTAL ACRES 
HALVES! CD 


103.17 


TOTAL COTTON 
HARVESTED 

269287. 1 


HARVESTER 
IDLE TIME 


WHICH HARVEST 


YLOS= 


TRAILER NO. 
TRAILER NO. 
TRAILER NO. 
TRAILER NO, 
TRAILER -HO. 
TRAILER NO. 


3641.90 


5 


1 


RETURNS TO FARM AT TIME 
RETURNS TO FARM AT TIME 
RETURNS TO FARM AT TIME 
RETURNS TO FARM AT TIME 
IS GINNED. TIME IS 43 
IS SELECTED TO BE FILLED AT TIME 
HARVESTER HO. 1HAS 
OF SEED COTTON 
HARVESTER NO. IHAS 
OF SEED COTTON 
HARVESTER NO. IHAS 
OF SEED COTTON 


.0 


OF HAY 361 
OF DAY 361 
OF DAY 
OF DAY 


361 

361 


44 


361 BY HARVESTER 1 
SEED COTTON BEING DUMPED 
5 IDLE TIME- 0. 

OF SEED COTTON BEING DUMPED 
NO. 5 IDLE TIME- 0. 

OF SEED COTTON BEING DUMPED 
NO. 5 IDLE TIME- 0. 


INTO 

INTO 


DAY 361 TIME 44 HARVESTER HO. IHAS 2399.6LBS. OF SEED COTTON BEING DUMPED INTO 

WHICH NOW HAS 2399. 6LBS. OF SEED COTTON FIELD NO 

DAY 361 TIME 48 HARVESTER NO. IHAS 2262. 3LBS. 

WHICH HOW HAS 4661, 9LBS, OF SEED COTTON FIELD 

DAY 361 TIME 52 HARVESTER NO. IHAS 2I79.6LBS. 

WHICH NOW HAS 6B41.5LBS. OF SEED COTTON FIELD 

TRAILER NO. 1 WAS FILLED AT TIME 57 

DAY 361 TIME 57 HARVESTER NO. IHAS 2567. 5LBS. 

WHICH NOW HAS 9409. OLBS, OF SEED CO I TON FIELD 

TRAILER NO. 1 LEAVES FOR GIN AT TIME 57 
HARVESTER NO, l FREAKS DOWN# TIME 6 OOF DAY 361 REPAIR TINE IS -3.3TIME INCREMENTS 

893.0 392.2 98.7 .546 A. B# C# EFF 

TRAU.ER NO. 1 ENTERS GIN QUEUE AT TIME 61 OF DAY 361, GIN BACKLOG IS 81.0 BALES 

TRAILER NO. 3 RETURNS TO FARM AT TINE 63 OF DAY 361 

TRADER NO. 2 IS SELECTED TO BE FILLED AT TIME 64 OF DAY 361 BY HARVESTER 1 

DAY 361TIME 64 HARVESTER NO. IHAS 2356. 2LR3, OF SEED COTTON BEING DUMPED INTO 

WHICH NOW HAS 2356. 2LBS. OF SEED COTTON FIELD HO, 3 IDLE T 1 ME= n. 

i , li t " ii ffiX 361TME 68 HARVESTER. NO. IHAS 2112. OLBS. OF SEED COTTON BEING DUMPED INTO 

WHICH NOW HAS 44b8.2LBs. OF SEED UlTTuN FIELD NO. 5 IDLE TIME* 3 0. 


TRAIL, 

TRAIL 

TRAIL 


F£R 1 
ER 1 
ER 1 


OP SEED COTTON BEING DUMPED INTO TRAILER 1 
HO. 5 IDLE TIME® 0. 


TRAIL 

TRAIL 


.ER 

ER 


COITPLE ( ED HARVESTING FIELD NO. 
REMAINING COTTON IS 1573. 


5 


ON DAY 361 


THIS FIELD HAS BEEN HARVESTER 1 TIME 


YA . 01189 , t 

DAY 361 1 IMF' 72 HARVESTER NO. IHAS 

WHICH NOW HAS 6886. 8LBS, OF SEED COTTON 
TRAILER NO. 2 WAS FILLED AT TIME 76 

DAY 3611 IME 76 HARVESTER NO. IHAS 

WHICH NOW HAS 9269, 7LBS. OF SEED CUT ION 
TRAILER NO. 2 LEAVES FOR GIN AT TIME 76 
TRAILER NO. 3 IS SELECTED TO BE KILLED AT TIME 
DAY 36a TIME 80 HARVESTER NO. IHAS 

WHICH NOW HAS 2389. 8LBS, OF SEED COTTON 
TRAILER NO. 2 ENTERS GIN QUEUE AT TIME 80 

1MJ , DAY 36 IT IMF 34 HARVESTER NO. IHAS 

WHICH NOW HAS 4724, 1 LBS. OF SEED COTTON 
, (LJ f r i WX 361 TIME 88 HARVESTER NO. IHAS 

WHICH HOW HAS 7044. 9LBS, OF SEED COTTON 


2418. 6LB5. 
FIELD 

2382, 9LBS. 
FIELD 


OF 

NO 

OF I 
NO. 


SEED COTTON BEING DUMPED INTO 
6 IDLE TIME® 0. 


4; ED COTTON 
6 


30 uF DAY 


361 BY MAR 1 
2309. 31. BS. OF SEED COTTON 
FIELD NO. 6 

OF DAY 361, GIN BACKLOG 
2334. 3LBS. OF SEED COTTON 
FIELD NO. 6 

2320. 7LBS. OF SEE D COTTON 
FIELD NO. 6 


BEING DUMPED INTO 
IDLE TIME® 0. 

IVES TER 1 

BEING DUMPED INTO 
IDLE TIME® 0. 

IS 156.4 BAIT'S 
BEING DUMPED INTO 
IDLE TIME® 0, 
BEING DUMPED INTO 
IDLE TIME® 0, 


TRAIL 

TRAIL 


-ER 2 
£R 2 


TRAILER 3 


TRAIL 

TRAIL 


FR 3 
ER 3 


100 



Output Data— Continued 


TRAILER NO. 3 WAS FILLED AT TIME 92 „ „„ 

DAY 361TIME 92 HARVESTER NO. 1HAS 2460. 9LBS. OF SLED COTTON BEING DUMPED INTu TRAILER 

WHICH HOW HAS 9525. 8L6S. OF SEED COTTON FIELD NO. 6 IDLE IIME= 0. 

TRAILER NO. 3 LEAVES FOR GIN AT TIME 92 

GIN BREAKS DOWN AT TINE 92 OF DAY 361 REPAIR TIME IS -11.0 TINE INCREMENTS 

TRAIL FJR NO. 4 IS SELECTED TO BE FILLED AT TIME 96 OF DAY 361 BY HARVESTER 1 „„ 

DAY 361 TIME 96 HARVESTER NO, IHAS 2634.2t.BS. OF SFED COTTON BEING DUMPED INTO TRAILER 

WHICH NOW HAS 2634. 2LBS. OF SEED COTTON FIELD NO. 6 IDLE TINE= 0. 

TRAILER NO. 3 ENTERS GIN QUEUE AT TIME 96 OF DAY 361. GIN BACKLOG IS 208.2 BALES 

DAY 361 TIME 100 HARVESTER NO. IHAS 2572. 8LBS. OF SEED COTTON BEING DUMPED INTO TRAILER 

WHICH HOW HAS 5207. 1LBS. OF SEED COTTON FIELD NO. 6 IDLE TIME- 0. 


TRAILER UTILIZATION 


EMPTY 


FULL 


i 

21.0 

55.2 

2 

34.7 

41.5 

7 

44.2 

32. 0 

4 

50.7 

25.5 

5 

2S . 9 

47.3 

h 

57.6 

18.6 

7 

&9 . 5 

6.7 

8 

9 

71.1 

5.1 

76.2 

. 0 

10 

76.2 

. 0 

11 

76.2 

.0 

12 

76.2 

.0 

13 

76.2 

.0 

14 

76.2 

. 0 


BALES HARVESTED- 140.0 
HOURS OPERATION PER HARVESTER- 59.58 
DAYS LABOR CHARGED FOR HARVESTING 31 

HARVESTER CUSl 2333.20 

GINNING COST 3456.99 

TOTAL COST PER BALE IS 61.77F0R HARVESTING , HAULING 


AND GINNING 


GBRKPT PRINT* 


*U.S. GOVERNMENT PRINTING OFFICE! 1975- 673-1(05/25 Region No. 7 
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